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PROSPERO PASCAL 


An alternative language for the 
portable programmer. 


ONE MAN’S SYSTEM 


Getting into the swim with Archive. 


he process of transferring files from 
floppy to hard disk caused caused 
meatemporary loss of texi’, which 
did not want to run from the hard 
disk. The RECON routine had been run, 
and the device changed to WIN1_, but the 
program wasn't getting past the start of 
displaying it as text area when loaded. The 
way out of the problem was provided by 
software®’, with the suggestion to try 
deleting the tile CONFIGURE_C87 from 
the hard disk. When this had been done, 
the program started normally and it was 
possible then to alter the Text and Storage 
Device settings to WIN1_ and save a new 
CONFIGURE_C87 file. 

While my reservations about the 
implementation of the directory structure 
on the Miracle hard disk still remain, there 
is no doubt that the space and speed 
brought with it by the hard disk make QL 
life much more pleasant. The freedom to 
be able to copy a seemingly endless string 
of large files onto the hard disk, without 
coming near running out of space, relieves 
aconsiderable pressure from the user who 
has been having to consider every move 
very carefully previously. 


What's your rom? 


Do you know what version your Qdos rom 
chips are? (Type PRINT VER$, then enter, 
and the version will be printed on the 
screen.) 

Many users possibly do not have the 
faintest idea of their version, and are not 
really interested. In some senses 
unfortunately, programmers are interested, 
and they tend to use the 'best' version-JS. 
This is only to be expected; if the JS solves 
some faults in the computer, it is reason- 
able to use it. What is sometimes forgotten 
though, is that many users do not have this 
version. The result may be thatthe program, 
which works fine for the programmer, 
causes trouble for the user. This has 
happened with three programs | have used 
recently, and two of them were effectively 
unusable on my JM. My feeling about this 
is rather the same as with cars — petrol 
should be designed to suit the car, not the 
car to suit the petrol, and it is distinctly 
upsetting to have a relatively expensive 
investment rendered almost useless by 
changes in its diet. Can’t programmers 
test on more than one version of rom? QLs 
are not that expensive. 

Version 2.08 of Discopy from Qfile is now 
out, with a change having been made to 


Brian Davies reflects 
on screen shots and 
emulators. 


the boot procedure to prevent the 'in use’ 
message, noted on aJM QL when version 
2.06 was reviewed. 


Printing 


Once you get a new printer, you find all 
sorts of things to try it out on. The higher - 
quality output of ink jet and laser printers 
(compared to dot-matrix types) is clear to 
see when text is printed from a word- 
processing program, but the advantage is 
less obvious to see when printing graph- 
ics, from a DTP program for instance. 
Prints on a Hewlett-Packard DeskJet and 
Epson GQ-5000 laser from Professional 
Publisher seem better in appearance, but 
mainly because the paper gets less dam- 
aged by the print process (no impact from 
pins) and these printers use cut-sheet 
paper, which may be of better surface 
appearance than the continuous paper 
often used in DMP printers. So the quality 
of the image is essentially no better, being 
determined, to alarge extent, by the printer- 
driver and printer-emulation mode used, 
which has to be 'Epson-compatible’ (that 
is, FX80-compatible, a rather ancient and 
basic standard for both text and graphics). 
If my figures are correct, the resolution of 
the laser in its native mode is about four 
times better than that of the FX80. 

The DeskJet (using an FX80 emulation 
cartridge) also produced some oddities in 
text. For example, lots of ‘s’ characters 
looked more like ‘2’. The laser won't (so 
far) print a full page on one sheet of paper; 
it spreads one ProPub page over three 
sheets. This problem is somewhat 
mystifying, and comments on it would be 
appreciated. The impression is given (by 
the printer) that it has run out of memory, 
part-way through a print. It says ‘buffer 
full’. Bearing in mind that the page being 
printed is on adisk file of less than 100 KB, 
and the same printer happily handles files 
of around 500 KB from other sources, lack 
of memory per se can’t be the problem. 
The printer has 2 MB of ram anyway. What 
does seem to be involved is the input 
buffer of the printer, which can be no larger 
than 51 KB. 


In the picture 


The quality of photographic printing from 
shops and mail - order companies is nothing 
to boast about, but it usually seems that 
the negatives and transparencies are good 
enough; it’s the prints that are poor, pos- 
sibly mainly because of the inadequacies 
of automatic focusing devices used in the 
print process. If you want to take shots of 
your QL screen, you don't really have to 
worry about your camera being a cheap 
one, since the advantages of a good 
camera tend to get thrown away by the 
printers. Read the part of the QL User 
Guide devoted to Easel for advice. Basi- 
cally, ashutter speed of no less than about 
‘44 second is advised for TV screens. This 
is to ensure that an even, steady picture is 
obtained. The TV screen picture takes 
about '/es of a second to ‘draw’, so the 
exposure needs to be greater than this. 
With a 100 ASA film, an aperture of f5.6 is 
recommended. To reduce screen distor- 
tion, itis preferable to use alens of 100 mm 
or so focal length. 

My own recent shots of a colour monitor 
screen were taken using cheap, mail-order 
100 ASA film, a shutter speed of '/s or '/e 
second, an aperture of f5.6 anda 135mm 
lens. On reflection, the shutter speed 
should have been higher, say, '/1s second, 
but my camera offers only ‘/2s in this range. 
That is rather too close to the screen 
‘painting’ rate, but the shutter may have 
got a bit slow in its old age, and could in 
practice be about '/20 and suitable for the 
job. The ‘/s-second exposures were 
wasted. The telephoto lens does 
necessitate the camera being 2 metres 
away from the screen, but it reduces 
distortion. For one display, the camera 
tripod was backed against a cupboard 
door, and it was essential to have a 
viewtinder which allowed looking down on 
the image, since there was no room to get 
behind the camera and look through the 
usual viewfinder. Use a cable release for 
the shutter, to reduce the risk of shake. 
Make sure the room is dark, and that there 
are no reflections on the screen. Adjust the 
display controls to make the image sharp 
and free of glare, but make sure no 
important colours are lost by turning 
brightness of contrast controls too far. 

Boots charge £4.59 to do one-day 
processing of 24-exposure 35 mm film — 
not cheap, but acceptable if you are ina 
hurry. The prints must be glossy for the 
printers who have to transfer the image to 
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the printed page. Don’t bank on prints 

| coming out well. The last set of mine had 
several chopped at the edges, and out-of- 
focus, despite the transparencies looking 
quite reasonable. The transparencies 
themselves are likely to be preferable, 
anyway, because they are much sharper 
and allow the printers more flexibility. While 
we do use black and white screen dumps 
(a graphics transfer of the screen image to 
a printer) to illustrate program reviews, 
and they are satisfactory in many cases, 
colour can be important with some pro- 
grams and it does look more attractive on 
a magazine page. 


Brief encounter: 
Atari QL emulator 


QL World has been asking for owners of 
an Atari ST with the QL emulator fitted to 
step forward and let the rest of us know 
something about this combination. One 
(very satisfied) owner of the combination 
is Alf Kendall, and he was kind enough to 
bring the system round and demonstrate it 
to me. Here are a few notes based on 
watching the system demonstrated for 
most of one day. 

The basic computer is an Atari Mega 2, 
with 2 MB (expandable to 4 MB) of ram 
memory and an 8 MHz 16-bit 68008 proc- 
essor chip, and one 3'/zin floppy drive. 

The computer casing is about the same 
width as the Phillips CM 8833 colour 
monitor which sits on top of it. There is 
another similar-sized box underneath, in 
which resides a 30 MB hard disc drive. 
There is room for another hard disc, and — 
with some persuasion — a floppy drive, but 
these are not presently fitted to Alf's sys- 
tem. He has another 3'/2in drive attached 
externally. While the units mentioned so 
far make up quite a useful system, there 
are a trio of extra hardware items which 
make it really interesting. 

An accelerator board boosts the CPU 
speed to 16 MHz. Two other internally- 
mounted boards give the capability to 
emulate MS-DOS — that is, a PC — and 
Qdos — a QL. So, you effectively have 
three computers in one. You can also buy 
a Macintosh emulator, to make that four 
computers. It may sound a bit of a cob- 
bled-up thing, but it really does work, and 
work well. The hard disk (on Alf's system) 
is partitioned into three sections: Atari dos, 
MS-DOS and Qdos. The MS-DOS 
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emulator says ithas a'16-bit 8 MHz 80286" 
CPU, and it certainly behaves as though 
that’s true. It appears to run PC programs 
at a similar speed to my 10 MHz 286 
machine, and the disk-access speed is 
nearly as high as on my machine (which 
has a0.5 MB disk cache to assist it). Using 
the Norton Utilities System Information 
benchmark routine, the overall speed was 
about eight times that of the reference PC/ 
XT. The two floppy drives and one partition 
of the hard drive are usable with MS-DOS. 
Various standard programs (eg 
WordPerfect 5.0, Flight Simulator 3.0, 
Lotus Manuscript, Psion Abacus and Quill) 
ran without a problem. The screen display 
was of only CGA standard, but it does look 
likely that there is a way of obtaining EGA; 
this is something to be checked later. 

The Qdos emulator has been around for 
three to four years and is well debugged. 
The only program Alf quoted as notrunning 
properly is the configuration routine for 
Turbo-Plus-Quill. We ran Taskmaster, 
Flashback, Perfection, tex’, Archive, Pro- 
fessional Publisher and various other 
standard QL programs. The absence of 
trouble was impressive. Equally impressive 
was the speed, generally quoted as about 
three times that of basic QL, for the basic 
8 MHz Atari. Even Quill ceases to be areal 
drag on this combination computer. Not 
surprisingly, Perfection zooms along. 
Going up and down ona ProPub page with 
the cursor checked out as being six times 
as fast as on my JM QL, and the screen 
movement was much smoother. The 
speed- up factor is very likely overall more 
like six than three because the 16 Mhz 
accelerator board improves QL 
performance as well as Atari (but 
apparently doesn't do anything for the MS- 
DOS emulator). Alf uses a small routine 
which allows him to select different sub- 
directories, before switching (with Task- 
master) from one program to another. This 
deals with the problem experienced with 
the Miracle hard drive on the QL, where 
you can find the program you have switched 
to working from the wrong data sub-di- 
rectory (this routine can be used on the 
normal QL, too). One hard disk partition 
and both floppy drives are accessible to 
Qdos. 


Readers’ letters 


Vladimir Sams reports from Belgrade that 


OTER 


he has now got his ‘home’ QL running, 
after what appeared to be display-induced 
failure. The MC1377P chip (IC28) was 
replaced by a local repairer. He mentioned 
that the Washington DC QL group in the 
USA has details of a buffered display 
cable, to prevent displays killing chips 
through the unbuffered QL interface. Sams 
now has another problem — how to get two 
battery-backed clocks (boughtin the USA) 
working. Does anyone know of ‘standard’ 
problems with such clocks? 

P Land has got his printer spacing 
correctly (it previously double-spaced with 
Quill and Abacus but not with SuperBasic 
programs). His problem was quite com- 
mon, but no easier to solve, at first, just 
because it was a simple one. It was a 
question of what code(s) the printer was 
set to expect, to move one line space. 
Typical dot-matrix printers have an internal 
switch setting which allows them to Line 
Feed, ornotto Line Feed, when a Carriage 
Return command is received from a 
computer. If the printer is set to add a Line 
Feed to every Carriage Return 
automatically, and the computer program 
is set to do the same, the result is double- 
spacing instead of single. You can set the 
Quill printer-driver to give an EOL (end of 
line) command to the printer of CR + LF, or 
just CR. To match just a CR, the printer 
itself has to respond to the pressing of the 
ENTER key with a Carriage Return (the 
print head returns to its leftmost position) 
and a single Line Feed. Land set the Quill 
printer-driver to give only CR when the 
ENTER key is pressed; this is an easier 
solution than getting into the bowels of the 
printer to reset a DIP switch, but fixing the 
problem this way might result in trouble 
printing from other programs in future, and 
there is no guarantee that the other 
programmers will have provided the facility 
to set the EOL code(s). 

Since writing comments about using fax 
paper rolls for the Serial 8056 printer in a 
previous issue, a fax machine has been 
added to my own collection, making me 
more familiar with the subject. The Amstrad 
FX 9600AT can accommodate both 210- 
and 216 mm -wide rolls, with the aid of two 
spacing pieces supplied as standard with 
it. The thermal paper rolls are 30 m in 
length and cost £3.60 + VAT (210 mm) 
from my local computer shop. The more 
usual retail price appears to be about £5— 
6 per roll. A30 m rollis 5.5 cm in diameter. 
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Perhaps equally important is the internal 
diameter of the core of the roll, whichis 2.5 
cm in the case of the Amstrad fax ma- 
chine. Letters received so far seem to 
imply that only roll width matters, but a 
supplier of fax paper (see Information box 
below) has been kind enough to write in 
response to the note about R Thompson, 
and the letter suggests that '/2in is the 
required core diameter for the 8056. If you 
are having trouble getting paper for your 
8056, and decide to contact this supplier, 
it might save time to inform them of the 
internal core diameter of the ‘proper rolls, 
and supply a sample piece of paper. 

As an aside to this matter, the Amstrad 
machine has a din connector on the back 
‘for passing scanned images to the com- 
puter’. This was news to me, and | suspect 
that there are no suitable interfaces avail- 
able for processing the fax-machine out- 
put so that it could be accepted by a 
graphics program. Does anyone have 
experience of feeding images scanned by 
a fax machine into a computer? 

Mike Jackman had not (as of late April) 
managed to find a solution to his problem 
with Technikit/TechniQL, from Talent 
Computer Systems. He successfully 
uses the Plot module of the program on 
his QL to produce output from a Penman 
plotter, but cannot get QL screens dumped 
from the Screen Dump module. The pro- 
gram ‘does not run at all’ on his Thor. Can 
anyone shed any light on this subject? 

The only well-known QL supplier left that 
supplies a wide range of software written 
by people who have since left the QL 


Handling, Default Directories, Extended Network, 
16k Eprom Cartridge Version ...............- wee @E2Z3.50d 
Configurable Version on Microdrive ............. @£23,50d 


OK Disc Interface (Inc Tool Kit Il} ...... 
QL Centronics Printer Interface ..... 
QL Expanderam 512K Thrucard ... 


Single 3.5" Disc Drive & (Own PSU) .. - @£105.75a 
Dual 3,5" Disc Drive & (Own PSU) -@£176.25a 
3.5" DS/DD Disesi= 10 Off n.:20ncnecencn @£9.40c 
QL Keyboard Membrane ... . @E11.75d 
Care Eprom Cartridges @ah ........s:esererereres @€6,lic 
ULA GHip FRBBON scetenverccwercctartanses @£15.98e 


SOFTWARE 87 (State MDV or Disc) 


TEXTS? (Budget Version} 
FOUNTED 889 ..........., 
FOUNTEXT 88 


2488 PRINTER DRIVER... @£15.00e 


ei tau ane ce Tp @£25.00d 


MIRACLE SYSTEMS PRODUCTS 


QL HARDWARE 


scene is TK Computerware. It is good to 
have a supplier willing to deal in obsolete 
items, but it is almost inevitable that the 
supplier will come in for criticism from 
customers who feel they are not getting 
the usual speedy service, when they ask 
for help with old programs. When a pro- 
gram is actually produced by a supplier, 
the customer has good reason to hop up 
and down if complaints are not dealt with 
quickly, but there is nothing much a sup- 
plier can do when it cannot get a good 
response to enquiries aboutold programs, 
from other suppliers or programmers who 
may no longer be interested in QL mat- 
ters. 

Some users seem to develop a love- 
hate relationship with all or part of their 
Computer system, and PH Tanner seems 
to fall into this category where Minerva is 
concerned. He emphasises that he thinks 
that the product is '24 carat’, but is farless 
complimentary about the support for it. In 
his running battle to get his two QLs 
talking to each other and doing (Forth- 
language) work he wants to get on with, 
he has at least achieved one success, in 
contradiction of ‘what the experts have 
told him’. It has long been my understand- 
ing that a decent network between two 
QLs is not possible unless both of them 
are fitted with Too/kit // , on rom. Tanner 
says he now has a good network, without 
TKII on rom being in both computers. He 
doesn't say whether he is using TKI at all, 
however, and it may be worth pointing out 
for the benefit of other would-be 
networkers that the basic QL network 


QPAC Il by Tony Tebby GPOWER REGULATOR 


Over 118 Commands:- Full Screen Editor, Key Define 
Print Using, Last Line Recall, Altkey, Job Control, File 


MAKES YOUR QL TRULY MULTI - TASKING 
QPAC || Main menu windows adjust automatically to size. 
Files, directory, view, print, delete, backup, jobs, pick, 
Rjob, sort, channels, things exec, wake, buttons, Hotkey, 
Hotjobs. Fully multitasking, allows many programs to run 
at once. Requires min of 256k expanded memory ....... 
eh isis tlm rea ciocape ina a miu inion ventral oo @£49,35b 
Upgrade QRAM to QPAC II return master .....@29.61b 


PLEASE SEND SAE FOR 
A COPY OF THE GQPAC II 
REVIEW 


QLFP (Micro/P disk interface upgrade) ........ @£15.51d 
QTYP Type’Spell Checker ..........00.00.2.2......- @£30.55d 
QPAC 1-Desk top accessories, calander, alarm. calcula- 
tor, typewriter, digital clock sysmon ...,......... @£22,.56d 


ZITASOFT SOFTWARE by Steve Jones 


LOCKSMITHE copies M/DRIVE - M/DRIVE @£14.10c 
4MATTER + LOCKSMITHE copies M/DRIVE - DISC .. 
wiesticelh oyu anton aiacnieinfesie haces cs ipinseshaecicasions tc @£23.50¢ 
SIDEWINDER - High resolution printer driver prints full 
screens or parts of screens from postage stamp size to 
large banners. Prints sideways, invert, scale, mirror, text 
MISES DON tases creverariatarensronvecse haseruictereroinvewtisiand @£20.21¢ 
SIDEWINDER PLUS - (for expanded QL’s} includes all 
the features of above, PLUS multiple label printing, desk- 
top publishing files and printer driver for The LC 10 JX80 
24 pin and colour printers {Please state 3.5" disc or M’ 
DYVOD 2 tects sietericmn seem terctese COR ORe 
Upgrade to Sidewinder Plus ..........0..000ce @8 46c 


HOW TO ORDER: 
: By Past. Enclose your Cheque/PO made payable to CARE Electronics or use ACCESS VISA. Allow 7 days for delivery 


commands do work, after a fashion, with- 
out any assistance from any toolkit. The 
troubles are that: the network set up in this 
way is not reliable; the available com- 
mands are very limited; and the QL-net- 
work hardware varies in its reliability from 
computer to computer. Another step in the 
right direction for him is that he has found 
a way of getting QFlash to work with 
Minerva. 

Italy has a fair number of QL enthusi- 
asts, one of whom is Francesco Querini, 
who has written with some comments on 
possible future hardware developments. 
He has designed various units for SPEM, 
an Italian company which has been pro- 
ducing hardware for the QL for several 
years now. One idea he mentioned is an 
advanced graphics driver board. Undoubt- 
edly, many users would like to have a 
sharper screen picture, and that is now 
possible on the Atari ST with QL emulator, 
but not on the QL itself. With the greater 
speed and memory now available from 
the Gold Card, it would be nice to do more 
justice to programs such as Professional 
Publisher, but would the types of display 
most of us have (eg Philips CM8833, 
Microvitec Cub 653) be able to give a 
sharper picture? 


INFORMATION 

Fax paper for Serial 8056: ACD 
Morgan, Sensitised Coatings Ltd, 
Bergen Way, North Lynn Industrial 
Estate, King’s Lynn, Norfolk PE30 2JL. 
Tel: (0553) 760377. 


Switch mode power supply, QL runs cool, 
stops, lock ups (due to voltage drop). Helps 
filter noise out. Simple to fit (no soldering) 
£25.85c 


COLOURED PRINTER 
RIBBONS 


old, Silver, Magenta, Orange, 
Blue and Red. 
Citizen 120D/Switt ... 
Cannon 1080A/1 156 
Epson FX80/LQ400/LQ800 . 
Epson FX100/L.Q1000 .... 
Panasonic KXP 1080 .. 
Star LC10 


READY MADE LEADS 


RGB 8-6 PIN ........... 
AGB 8-7 PIN HITACHI... 
RGB 8-7 PIN FERGUSON .. 
RGB 8 PIN TO SCART ... 
6BWAY PCC TO 25WAY 'D’ 


24 Hour Order Line 0923 894064 
OPEN 


Sam-5pm Mon-Thu 
Sam-4pm Fri 


CARE ELECTRONICS 


DEPT QL, 15 HOLLAND GDNS 
GARSTON, WATFORD, 
HERTS, WD2 6JN. 

Tel: 0923-894064 
Fax: 0923-672102 


Please add carriage 
a=£11.75 b=£3.76 
c=No charge d=£2,.35 


Two new 
lines from 
star printers 


Star Micronics UK has an- 
nounced two new printer lines. 
The LC-20 is dubbed ‘the CL- 
10 for the 90s’, A new 9-pin 
entry-level dot matrix printer 
in Star’s Business Series, the 
LC-20 is aimed at small busi- 
nesses, home users, education 

| and small departments in large 
companies. It has eight near- 
letter-quality fonts including 
italics, print speeds of 180 cps 
in draft and 45 cps in nlq (12 
characters per inch), a 4 KB 
print buffer, paper parking, 
push tractor feed with short 
form tear-off, a builtin parallel 
centronics interface and Epson 
and IBM emulation. An op- 
tional serial interface is avail- 
able. 

The LC-20 has a robust case 
and quiet mode printing, and 
is priced £199 exclusive of VAT. 
The LC-200, launched in Sep- 
tember 1990, has the same 
specifications plus colour 
printing, for £259 ex. VAT. 

Star have also launched a 
range of four 9- and 24-pin 
printers with colour facilities 
as standard, Priced between 
£399 and £599, the Pro-to-Col 
series replaces the Professional 
Series, and includes options 
such as buffer expansion to 236 
KB, high speed draft mode, up 
to 14 fonts, 80 column model 
and wide carriage model. The 
Pro-to-Col is designed for 
‘general high quality office 
print needs’. 

For more information, con- 
tact Star Micronics UK, Star 
House, Peregrine Business 
Park, Gomm Road, High 
Wycombe, Bucks HP13 7DL. 
Tel. 0494 471111. 


Price changes at CGH 


CGH Services have issued a 
new price list from July 1991. 
The main points of interest are 
that they are no longer sup- 
porting ‘base’ prices, where 
purchasers send their own 
media. This applies to the pub- 
lic domain library as well as 
commercial sales. The public 
domain library is no longer 
supporting mdvs, and will 


charge £2 each (including UK 
postageand packing) for disks 
supplied. ‘We'll pack them as 
tight as we can,’ stresses 
Richard Alexander. 

All commercial prices will 
now have UK postage in- 
cluded. There is no VAT, as 
CGH are below the VAT 
threshold. Non-UK customers 
add 10% (Europe) or 20% 


(elsewhere) to cover postage. 

CGH are also revising their 
authors’ royalties structure to 
remove anomalies. 

For a price list contact CGH 
Services, Cwm Gwen Hall, 
Pencader, Dyfed, Cymru SA39 
9HA. Tel. 0559 384574. Send an 
SAE or international reply 
coupons for their full public 
domain catalogue. 


Below: THE LC-20 


Above: THE STAR PRO-TO-COL SERIES 


Cowo release new QTop version 


Cowo Electronic have pro- 
duced the first major revision 
of their user front-end package 
QTop, the more powerful VI10. 
The full QTop system is based 
on six stand-alone executable 
multitasking programs. QTop- 
Desk is the system manager, 
offering main menus for Desk, 
Devices, Files, Jobs, Keyboard, 
Programs, Myprogs, Tools and 
Options, with over 110 sub- 
menus. Cowo believe that the 
Files and Jobs handling rou- 
tines are ‘the most powerful 
and complex in the whole QL 
world.’ Real sub directories on 
all QJump Level 2 device driv- 
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ers (Miracle Hard Disk, Gold 
Card, Atari ST/QL emulator) 
and on Thor hard disks are 
supported. 

QTop-Clocks is a multi-func- 
tional clock program offering 
four different digital clocks, an 
analogue clock and an alarm 
clock. OTop-Demos offers ten 
different high-speed graphics 
demonstrations. QTop-Anima- 
tor is a flexible graphics anima- 
tion program. QTop-index tests 
the hardware of your computer 
system. OTop-Snap is a screen 
dump and save program. The 
latest QJump Pointer Environ- 
ment is included — it is not 


necessary to run the Pointer En- 
vironment, itis fully supported 
if installed. 

OTop is fully user-configur- 
able, and includes a screen 
refresh and freely moveable 
and resizeable windows. 

The software with a 41-page 
manual is available in English 
or German for £35 (on 3.5 or 
5.25 in disk) or £39 (on three 
microcassettes), prices inclu- 
sive of post and packing. 

For a six-page information 
brochure and order form, con- 
tact Cowo Electronic, Urs 
Konig, Munsterstrasse 4, CH- 
6210 Sursee, Switzerland. 
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MPeEN QHANNEL 


Open Channel is where you have the 
opportunity to voice your opinions in 
Sinclair QL World. Whether you want to ask 
for help with a technical problem, provide 


somebody with the answer, or just sound off 
about something which bothers you, write 
to: Open Channel, Sinclair OL World, 
116/120 Goswell Road, London EC1V 7QD. 


As a fairly average QL user, 
most of my purchases over the 
years have been promoted by 
articles and reviews in your 
pages. As a result of Mark 
Knight’s May 1991 review, I 
recently bought Perfection and 
have found it to be the defini- 
tive answer to all Quill’s 
shortcomings, Pro Publisher, 
with perseverance, can be 
splendid in its own special 
field, but Perfection (unlike 
other attempts to replace Quill) 
is child’s play to the relatively 
inexperienced wp user, yet itis 
still capable of great sophisti- 
cation. It is, quite simply, 


marvellous, especially when 
coupled with Lightning. Thank 
you for Perfection, and thank 
you, too, for telling me about 
Pro Publisher, the elegantly 
simple multi-tasking 
Taskforce, and my splendid 
(and cheap) LC24-10 printer. 
Brendan Connors 
Hove 
Sussex 


Editor's comment: That's why we 
run full-length user-driven 
printer reports every so often. 


Can anyone help me with a 


program for listing my 


SuperBasic programs? I havea 
C-Itok daisywheel printer and 
have tried the following pro- 
gram, which does in fact pro- 
videa carriage returnafter each 
line. 


Baud 9600: Open #3, serl: list 
#3: close #3 


Result: 


10 Rem prog list 
20 next line 

30 next line 

40 next line 
50 next line 


etc. 


This listing actually runs off 


the page and is lost, leaving me 
very frustrated. The printer 
works normally with Quill and 
Abacus. Any suggestions from 
readers would be appreciated. 
Malcolm Roberts 

Pembroke 

Dyfed 


I should like to express my 
gratitude through your column 
for the excellent service and 
expert help given to me by Mr. 
Freddie Vachha of Digital Pre- 
cision Ltd. I had been using a 
single 3.5 in disk drive with a 
768K Trump Card on my QL 
and had ordered from them 
copies of QFlick and Perfection. 
On reciept, neither would load, 
and the error message ‘not 
found’ was given. 

On the telephone, Mr. Vaccha 
advised (a) cleaning and (b) 
realigning the reading heads. 
Cleaning proved ineffective, 
but I had on order from Mira- 
cle Systems a dual 3.5 in drive 
unit,and when this arrived and 
was connected, Perfection 
loaded and operated perfectly. 

In addition to his ‘remote di- 
agnosis’ of my problem, Mr. 


Vaccha suggested a firm who 
would re-align my single drive 
unit, and I feel his expertise is 
largely instrumental in keep- 
ing alive an excellent computer. 

Ialso greatly appreciate your 
series The New User Guide for 
people who only have elemen- 
tary programming skills, and 
would like to become more 
proficient. 

Ireceive QL World by annual 
subscription, and have com- 


pleted the QLAW 
questionnaire. 

RA Mills 

Heighington 

Lincoln 


The very positive review of 
Perfection, Digital Precision’s 
new word processor, in these 
pages encouraged me to order 
what appeared to be a very 
worthwhile package. 

I have now received it and 
find it excellent, easy to use 
and the answer to my 
wordprocessing problems. 

It is a pleasure to find soft- 
ware whose performance 
exceeds even the suppliers’ 
advertising blurb. 

J R Haldane 
Gorebridge 
Midlothian 


This concerns the reader's 
problem in the August issue 
under the heading ‘Capital’. I 
have two programs which I 
contributed myself, which I 
find very useful, and I hope 
Mr. Patterson will find them 
useful too. One is for Abacus, 
while the other is a simple Su- 
perBasic program. 

The Abacus program gives 
accrued interest fora year of 12 
equal months, which results in 
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The Formulae used 


eee eee ee ee na ene ee on oo oo ee ee a ee ee ee mes ee ee seen seeeenes 


ee ee a eee ne eee ne a so a a ns ns ot on ee ee ee ene eeees 


Some Figures 


A building society account on Abacus 


111991# Month! Capital | rateZ ! accrued ' In/out(-) # Growing 
a $ SPSS SSessseessseresssesssseaseseslssassossssssssssssssaasssssssssssssesssssssss: Accrued 
31... $84! £0.00 ! } ' # saessesssz 
4) Jan 'D3+H4+04 1 0.00 ! (D3+d4) #F4/1200 ! #H4 
5} # Feb 'D3tsue(HasHS)+sum(d4sd5) |! F4 9! (D3+d4+05) #F5/1200 i 4 L4tHS 
6} Mar 'D3tsua(H4sHb)tsum(J4ed6) ! FS! (D3+sumtt4r36))#FO/1200 ! * LO+H6 
Tit Apr 'D3tsum(H4sH7)+sum(d4d7) ! F6 | | (D3+sum(d41d7))#F7/1200 ! # LOtH7 
Bi oe May 'D3t¢sue(H4sHB)+sua(d4:J8) ! F799! (D3+sum(d4308))#F8/1200 ! * L7+H8 
9) dun 'D3+sum(HhsH) tsum(d4sd9) ! FB! (D3+sum(d4sd9))#F9/1200 !  LO+H9 
10} dul 'D3+suatH4sHi0)+sum(J4sd10)! FO ==} (D3+sum(d42d10))#F 10/1200! # LO+HIO 
11) # Aug 'D3+suetHasHit)+sum(JbsJi1)! FLO | (D3+sum(d4sd11)) #F11/1200! # LIO+HII 
12i -# Sep 'D3tsum(H4sH12)+sum(J42d12)! Fil =! (D3+sum(d43J12))#F 12/1200! # LAL+HI2 
13) t Oct D3tsum(H4sH13)+sum(d4sJ13)! FL2 | (D3+sum(d43d13))#F13/1200! # LI2+H13 
14) # Nov !D3+sum(H4sHid)+sum(d4sd14)! FAS | (D3+sum(d42d14)) #F 14/1200! # LIS+HI4 
15} # Dec 'D3+sum(HAsH5) +sum (04s 15)! F14 =! (D3+sum (04s 015) )#F 15/1200! # LI4+HI5 


1} HRRERERAEEE RATA ERERERERAAREREAERHREEEREAMHEREREREESS ESET ERESEAEEAREEDEREERSESEESREEE PRES HEREE 


16} 


a 360-day year. This will be 
close enough for most pur- 
poses. The interest rate will 
have to be amended each time 
it changes and each time that 
happens the program auto- 
matically amends the rate for 
the remaining months of the 
year, because each cell in the 
column uses the reference of 
the one above it. Thus, one has 
a forecast of one’s position for 
the year-end. 

The accrued interest figures 
are meant to be taken as at the 
close of business on the last 
day of the month in question; 
the last day of December is 
therefore the last day of the 
year. 

Deposits and withdrawals are 
entered inthe ‘in/out’ column, 
but in order not to make the 
program unnecessarily com- 
plicated, no provision has been 
made in the column to stipu- 


11991 Month'Capital ! rate% ! accrued ' In/out(-) # Growing 
Z| + Seasseesssssssessassasagesssssssssssscesssecsst Accrued 
3 of B/F  '£21008,32 ! ! ! # ssesesssss 
4) # dan '£21175.69 ' 9,56 ' 167.37 ! # 167.37 
St # Feb '£22351,02 ' 9,56! 175,33 ! 1000 # 342,70 
6} # Mar '£22509,11 | 8.62! 158,09 ! # 500.79 
it Apr '£22667.21 ' 8.62! 158,09 ! t 658,89 
Bi # May '£22246.62 | 7.80! 139.41! 560 # 798,30 
$i t dun 1£22386,03 ' 7,80! 139,41 ! ? a 937,71 
10) # dul '£23531.95 | 7.80! 145.91 ! 1000 * © 1083.63 
Mi # Aug 1£23677,86 | 7,80! 145,91 ! # 1229.54 
12} Sep '£23823,78 ' 7.80! 145,91 ' # 1375.46 
13) # Oct 1£23969.69 | 7.80! 145,91 ! # 1521.37 
14; # Nov '£24115,60 ' 7.80! 145.91 | * 1667.28 
15} # Dec «('£24261,52 | 7,80! 145,91 ! * 1813.20 


SERA SAREEAAEEEEAAEEERAAAEEEREHTEREEESER ERASERS SERRE EEE REEEE 


late on which day of the month 
the transaction was made. 
Each row can be typed one at 
a time, or one can go as far as 
March and then COPY the row 
for March to get April, editing 
month-name and cell refer- 


ences where necessary, 
ensuring that D3 and J4 are 
referred to in every line there- 
after. Likewise, one can COPY 
March and April to get June 
and July - and March, April, 
May, June and July to get Au- 
gust, September, October, 
November and December. 
Once I was sure that I had the 
programs I wanted, I made a 
COPY of the whole thing twice 
on rows below the ones in use, 
and made the figures in them 
zero. This is a useful proce- 
dure, because one cannot 
LOAD a second file on. to the 
spreadsheet, and keep the one 
onit whichis already in use, as 


far as I know. With the proce- 
dure one can always COPY a 
blank for next year onto the 
rows below. 

The SuperBasic program 
will be self-explanatory once it 
is run. 

Peter Tomlin 
Hatherley Grove 
London 


A compound interest table in 
SuperBasic 


100 MODE 4: INK 4: PAPER 0: 
CLS 

110 INPUT “Sum”, x 
120 INPUT “Years”, y 
130 INPUT “Rate”, t 
140 LET r=t/100 

150 CLS 

160 FOR i=1 TO y 

170 LET s=x*((1+r) “i) 
180 PRINT “ Year’”!i,, 
190 END FOR i 

200 PRINT 


I have found a Bug in 
Superbasic I have not seen de- 
tailed before. It concerns the 
comparison of strings. Some 
characters are considered equal 
by the interpreter, which are 
obviously not I stumbled on 
this while writing a guarded 
input routine; the character O 
is effectively the same as the 
cursor up key. The only way to 
distinguish is to compare 
CODEs. I have since found a 
total of 64 cases (see enclosed 
printout). There is an interest- 
ing effect: for example, A is 
equal to CHR# 225, and a equal 


UEM sg 
ry 


also to CHR# 225 but A is not 


equal to a (using == completes 
this). 
A few months ago Mike Lloyd 


gave a function for signum: 
REturn 1-(x<=0)-(x<0). This 
does have an elegant simplic- 
ity, however, the alternative, 
RET (x>0)-(x<0) works just as 
well. 


Caleb Leeke 

Huntingdon 

Cambs 
. CHR$(46) = CHR$(206) 
O CHR$(48) = CHR$(208) 
1 CHR$(49) = CHR$(209) 
2 CHR$(50) = CHR$(210) 
3 CHR$(51) = CHR¢(211) 
4 CHR$(52) = CHR$(212) 
5 CHR$(53) = CHR$(213) 
6 CHR$(54) = CHR$(214) 
7 CHR$(55) = CHR$(215) 
8 CHR$(56) = CHR$(216) 
9 CHR$(57) = CHR$(217) 
A CHR$(65) = CHR$(225) 
B CHR$(66) = CHR$(226) 
C CHR$(67) = CHR$(227) 
D CHR$(68) = CHR$(228) 
E CHR$(69) = CHR$(229) 
F CHR$(70) = CHR$(230) 
G CHR$(71) = CHR$(231) 
H CHR$(72) = CHR$(232) 
I CHR$(73) = CHR¢(233) 
J CHR$(74) = CHR$(234) 
K CHR$(75) = CHR$(235) 
L CHR$(76) = CHR$(236) 
M CHR$(77) = CHR$(237) 
N CHR$(78) = CHR$(238) 
O CHR$(79) = CHR$(239) 
P CHR$(80) = CHR$(240) 
Q CHR$(81) = CHR$(241) 
R CHR$(82) = CHR$(242) 
S CHR$(83) = CHRS(243) 
T CHR$(84) = CHR$(244) 
U CHR$(85) = CHR$(245) 
V CHR$(86) = CHR$(246) 
W CHR$(87) = CHR$(247) 
X CHR$(88) = CHR$(248) 
Y CHR$(89) = CHR¢(249) 
Z CHR$(90) = CHR$(250) 
— CHR$(95) = CHR$(255) 
a CHR$(97) = CHR$(225) 
b CHR$(98) = CHR¢(226) 
ce CHR$(99) = CHR$(227) 
d CHR$(100) = CHR$(228) 
e CHR$(101) = CHR$(229) 
f CHR$(102) = CHR$(230) 
@ CHR$(103) = CHR$(231) 
h CHR$(104) = CHR$(232) 
i CHR$(105) = CHR$(233) 
j CHR$(106) = CHR$(234) 
k CHR$(107) = CHR$(235) 
1 CHR$(108) = CHR$(236) 
m CHR$(109) = CHR$(237) 
n CHR$(110) = CHR$(238) 
© CHR$(111) = CHR$(239) 
p CHR$(112) = CHR$(240) 
qa CHR$(113) = CHR$(241) 
r CHR$(114) = CHR$(242) 
s CHR$(115) = CHR$(243) 
t CHR$(116) = CHR$(244) 
u CHR$(117) = CHR$(245) 
v CHR$(118) = CHR$(246) 
w CHR$(119) = CHR$(247) 
x CHR$(120) = CHR$(248) 
y CHR$(121) = CHR$(249) 
z CHR$(122) = CHR$(250) 


EEE aEEEEEEETEEEEE EEE 
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aS, FTWARE FILE 


THE GOPHER 


INFORMATION 

Program: The Gopher V1.02 

Price: £12 (add £1 post 
age for EEC coun- 
tries,£2.50 else- 
where). 

Supplier: Dilwyn Jones 
Computing, 41 Bro 
Emrys, Tal-y-Bont, 
Bangor, Gwynedd 
LL57 3YT. Tel: 
(0248) - 354023. 


he hard disk user is in 

a paradoxical situa- 

tion. It is perhaps the 

most expensive add- 
on unit for the QL, but there is 
little software available for it, 
to spend more money on. At 
the time of writing, Dilwyn 
Jones Computing offer the only 
two items that users are likely 
to get to hear about. WinBack 
was dealt with in a previous 
review; it is a fairly basic hard 
disk backup program, which 
works well. The Gopher was 
written by the same person, so 
one would expect it to be of a 
similar nature and, indeed, the 
similarity is clear. 

The Gopher is available on 
microdrive, and SuperBasic 
and compiled with Digital Pre- 
cision’s Turbo. It requires the 
usual Turbo RUNTIME _EXTS 
file to be loaded, plus an addi- 
tional one called GOPHER 
_BIN, for SB commands spe- 
cific to The Gopher. If a suit- 
able version of the XTRAS or 
TURBO_TK CODE file has al- 
ready been loaded, the runtime 
file is not needed; the boot rou- 
tine asks you whether or not it 
should go ahead and load it. 


About 32 KB of memory is re- 
quired to run the program. In 
case the origin of the name is 
not yet clear, the program’s 
function is to ‘go for’ files, that 
is, ferret out files which the 
user cannot (easily) locate. 
While such a utility obviously 
appeals most to the hard disk 
user, because of the much 
greater number of files this 
drive holds than either floppy 
or microdrive, there are some 
users who manage to get a hun- 
dred or so files on their floppies 
and may have difficulty locat- 
ing required ones. 


Booklet 


There is an 11-page instruc- 
tion booklet, which covers pro- 
gram operations adequately. 
AnUPDATES_DOC fileis pro- 
vided on disk (or cartridge) to 
bring the purchaser up to date 
on happenings since the 
manual was printed. The style 
is informal, without being 
chatty, and lets the purchaser 
in on some of the program de- 
velopment details. The manual 
includes considerable explana- 
tion on using the clone pro- 
gram supplied, but it is easy 
simply to COPY OR WCOPY 
the files to a working disk or 
cartridge. The manual doesn’t 
deal with the purpose of two 
files on the supplied disk, and 
you have to read one of those 
files to find out what the other 
is for. It is a program for alter- 
ing the data space taken by the 
executable files; users of the 
Turbo compiler will find this 
quite understandable, but av- 
erage Quill users may find ita 
complete mystery. There is no 
mention of why users of The 
Gopher should need to change 


Bryan Davies investigates a species 
that tracks down elusive disk files 
and reports them back to base. 


data space, so the best thing the 
user can do is forget it. 

If finding a file were only a 
matter of tracing a particular 
file name, it might be indul- 
gent to employ a program to 
do the job for you. A reason- 
ably organised user will give 
files names which are not hard 
to relate to file contents. The 
flysheet on The Gopher sup- 
plied by DJC gives the exam- 
ple of tracing letters written to 
QL World (a fair task, in my 
case). The restriction of eight 
characters fora filenamemeans 
that you can’t hope to provide 
much, if anything, of a clue to 
the file contents in its name; at 
best, you can have something 
like OLWLET1.DOC etc. You'll 
know whether or not a file is 
indeed a letter to QL World, 
but won't have a clue as to a 
letter’s contents. The program 
must, therefore, be capable of 
looking into files, and checking 
there for key text strings, from 
which the file contents can be 
gauged. Itis not presently usual 
for OL word-processing pro- 
grams to providea ‘comments’ 
facility, separate from the file 
text itself, and The Gopher has 
to go through the text until it 
finds, or fails to find, any speci- 
fied character string. With long 
files, this could be a lengthy 
process. 

To speed-up the search proc- 
ess, it is desirable to exclude 


any groups of files which are 
unlikely to contain what is be- 
ing looked for. Maybe you al- 
ways write your letters to OL 
World with text ”, in which 
case you can specify that only 
files with the _T87 extensionin 
their names are examined. [n 
case the impression given so 
far is that the program is a tool 
for word-processing users 
only, rest assured that it can be 
used with any files, but string 
searches are obviously limited 
to what characters can be en- 
tered into the string. The 
manual doesn’t list the accept- 
able characters, but ‘specials’ 
such as 0 can be used. The 
search string can be up to 100 
characters in length. Thesearch 
used when producing the 
screen dumps given with this 
article took about six minutes 
to complete. There were 192 
files on the hard disk, occupy- 
ing 2.7 MB, and 35 instances of 
the search string were reported 
as found. A more specific, case- | 
dependentsearch, forthestring 
INDEXICAL, took well under 
one minute, when the file suf- 
fix (_WP) of the only file found 
had been specified, whereas it 
took seven minutes with no 
restrictions made. 

Figure one is of the display at 
the stage of specifying initial 
conditions for a search. The 
range of conditions is greater 
than one might expect. For in- 
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stance, you can speed-up a 
search, if you are interested in 
finding the search string only 
in the first few pages of docu- 
ments, by opting tosearch only 
the first part of each file, and 
specifying a buffer size suffi- 
cient just for the pages you want 
searched. The default buffer 
size for a part-search is 2 KB. 
The minimum is 1 KB, nomi- 
nally equivalent to about 150 
words of text (but bear in mind 
that text files tend to have for- 
matting informationatthe front 
and evena file with no text init 
may occupy 2Kb). 

The buffer action is different 
if whole files are to be searched; 
the search is then fastest if the 
buffer is set to the maximum 
30Kb. The program loads files 
in chunks of the buffer size 
specified. When one chunk has 
been examined, the next is 
loaded. The decision on case- 
sensitive or not affects search 
speed, too. Entering <N> here 
—thatis, case is to be taken into 
account — is stated to reduced 
the search time by as much asa 
half. 


Legal 


The ‘legal’ entries for Search 
Device are any valid QL device 
with a five-character name; the 
underline must be the last char- 
acter, and the drive number 
must be specified (in the range) 
1-8). You cannot enter a sub 
directory name, therefore. 
Those users who have success- 
fully constructed an extensive 
sub directory structure will be 
glad the option is provided to 
specify whether or not (all) sub 
directories are to be searched. 
It is pointed out in the 
instructions that you can check 
all sub directories of a Miracle 
Systems hard disk by using 
CTRL-C to switch to SB, then 
typing <WIN2> and pressing 
ENTER, then returning to the 
program. The point here is that 
the hard disk software may 
have been set for a particular 
sub directory, before The Go- 
pher was started, and the 
program will then nat be able 
to look at the whole disk. At 
present, the sub directories op- 
tion is available only if you 
have entered <WINn> as the 
Search Device. Presumably, 
provision will be made before 
long for the high-density 
floppy disk drives with the 
Miracle Systems Gold Card, 
since they have the same sub 


SOFTWARE FILE 


hel 


ean Qunbar 


ba 
Fi 7 


The search has found the string in a number of files. 


directory structure available as 
for the hard disk. 

Apart from entering the 
search string, all you need do 
much of the time is press EN- 
TER for all entries. When the 
search string is located, the 
name of the file it was found in 
is written to the screen, or to 
both screen and printer, as 
specified. If the printer option 
is selected, you can opt to send 
the files names shown on- 
screen to either printer or disk 
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drive file. If there are enough 
instances of the string being 
found, you are requested to 
press ENTER toclear the screen 
and make way for any further 
instances. The maximum 
number of files displayable per 
screen is 22. Figure two shows 
the display when a search has 
found more than the 22 in- 
stances of the search string 
noted in the first illustration — 
<text>. In this case, whole files 
were searched, with the buffer 


set to30 KB. Figure threeshows 
how setting the program to do 
part-searches, with a buffer of 
2 KB, affected the number of 
instances found. 

Unlike many small programs, 
The Gopher does have a re- 
fresh key (the standard F4) to 
clean the screen if another pro- 
gram has corrupted it. Being a 
multi-tasking program, it is 
quite likely The Gopher will 
have company in the QL. In 
fact, the review was done with 
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mynormalsystem fully loaded, 
and this didn’t seem to upset 
The Gopher at all. As the Per- 
fection WP program was being 
reviewed at the same time, it 
was loaded, as was its acces- 
sory printer-driver creation 
program, Flashback 2, Files 2,Q- 
Switch, and a lot of extensions. 
Apart from Files 2 disappear- 
ing on one occasion (possibly 
not connected with The Go- 
pher), there was no apparent 
interaction between programs. 
Error trapping is incorporated 
in the program, so you are un- 
likely to be caught out by things 
like failing to put a disk in a 
search drive. 


Killed 


The Gopher clearly did not 
like one file, namely QTYP 
_ DICTIONARY, which is to be 
found as part of QJump’s Otyp 
spelling checker and later ver- 
sions of text”. The program 
stopped when it came across 
this file on hard disk, and gave 
the message ‘file error’. The 
option was offered to press 
ENTER in the hope the search 
could be continued, but the at- 
tempt to resume was unsuc- 
cessful and the program had to 
be killed and restarted. This 
happened with subsequent at- 
tempts too, making the pro- 
gram unusable until the QType 
dictionary had been deleted 
from the hard disk. Rather an 
extreme reaction. However, an 
earlier version of the file on a 
floppy gave no trouble and 
copying that to the hard disk 
removed the problem, Maybe 
the file was corrupted in some 
way; it had been edited, but 
with the QType dictionary edi- 
tor. 

All files are OPENed to be 
checked. Users of Archive who 
have lost files through not hav- 
ing them CLOSED successfully 
might be made nervous by the 
thought of so many files being 
opened, but there may be no 
alternative to doing this. On 
the matter of what characters 
can be entered as part of a 
string, some users might wish 
for non Ascii characters such 
as the alphabetic capitals with 
a bar over the top, as used by 
The Editor. 

Neither DJC nor the writer of 
the program go over the top in 
making claims for it, nor do 
they ask a lot of money for it. 
There are some features one 


The results of a part-search with a 2 KB buffer. 


CIPHER tl ~ 


(0) Hopman Dunbar 


The display showing the include/exclude options. 


would like to see incorporated 
into it, but it would be only 
reasonable to expect the price 
to go up if they were added. 
One obvious wish is for a dis- 
play of the location of a string, 
when it is found. No doubt 
adding such a feature would 
be time-consuming, bothin the 
programming required and in 
the effect it would have on the 
speed of the program, but it 
might save having to load into 
several files which were found 
to have the desired string in 
them, in order to discover 
which instance is the required 
one. 

A smaller wish is that the 
search string should be dis- 
played during thesearch. There 


are some of us who tend to 
forget what we have done, very 
quickly; it is also desirable to 
be able to check whether or not 
one put spaces (for instance) in 
astring. The instructions could 
have been clearer on the mat- 
ter of how Includeand Exclude 
entries can be typed in; there 
was space for 36 characters, 
which is the Qdos file name 
limit but is more than would 
be used in a normal file name 
(12 maximum). Presumably, 
only single, complete strings 
can be used. It would be handy 
to be able to enter several 
strings —-eg DOC _EXT _T87 
_BIN —and have them all, indi- 
vidually, excluded /included. 
Figure four shows how these 


entries are actually used. All 
files having <T_WP> as part of 
their names would not be 
checked, but any remaining 
files having <_WP> would be 
checked. This excluded ail 
files whichdid not have<_WP> 
in their names, and also ex- 


' cluded any files which had 


<T_WP>. 

The Gopher is a fairly basic 
program, without pretensions 
to greatness, but it is straight- 
forward touse,and works well. 
There is the possibility of addi- 
tional features being added in 
upgrades; presumably this will 
depend upon how well the pro- 
gram sells in its current ver- 
sion. At the price, it is good 
value. 
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Solent sub-group launches new Quanta workshop 


The Solent sub-group of 
Quanta is holding its first 
Workshop on Sunday 22 Sep- 
tember from 10am to 6pm at 
the Horizon Centre, Sundridge 
Close, Portsmouth. The mod- 
ern venue has ‘excellent facili- 
ties’, including facilities for the 
disabled, and plenty of car 
parking, It is close to the A3 
and the M27 and is also handy 
for cross-Channel ferries from 
Europe. Food and drink will be 
available all day, and the li- 
censed bar willbe open atlunch 
time. 


Fairing 
The All Formats Computer Fair 
has extended its range again. 
After two successful fairs in 
the Midlands, the All Formats 
Fair is now happening at five 
venues around the UK. Atleast 
four visits to each venue a year 
are planned. The next few fairs 
are: 


Midlands: National Motorcy- 
cle Museum, Solihull, M42 
(opposite the National Exhibi- 
tion Centre and Birmingham 
International BR station), Sat- 


There will be a number of 
lectures or presentations on a 
wide range of QL-related top- 
ics by the well-known and not 
so well-known, Traders willbe 
present and there will be new 
products to see and assess. 
There will be facilities to get 
together and discuss recent 
new developments in the QL 
market. 

The organisers also emphasise 
that these events are called 
‘workshops’ for a good reason 
— they encourage attendees to 
bring their QLs and relations 


further 


urday 14 September; Scotland: 
City Hall, Candleriggs, Glas- 
gow, Sunday 22 September; 
Western: The Brunel Centre, 
Bristol Old Station (near Tem- 
ple Meads Station), Sunday 6 
October. 

The admission charge is now 
£4 but the stand price has 
dropped to £60. All fairs start 
at 10am and finish at 4pm. All 
venues have ample car park- 
ing. For advance tickets and 
stands, contact John Riding on 
0225 868100. 
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along, ‘set them up and havea 
good time’. There will be a 
Clinic Desk for problem-solv- 
ing, and competitions and 
games for youngsters, who are 
also welcome. 

For information about the 
event, transport and accom- 
modation needs, etc., please 
contact Graham Goodwin 
0489 895451, Graham Evans 
042121 3350 or (regional trans- 
port, accommodation and 
other local events) Portsmouth 
Tourist Information office 
0705 838382. 


Other workshops 


Other Quanta workshops 
planned for the near future are 
Birmingham (28 September) 
at the Sandwell District Gen- 
eral Hospital Postgraduate 
Centre (call Bill Fuggle 021 
4726671 or Dennis Briggs 0952 
255895 for information), Not- 
tingham 12-13 October (no 
furtherinformation given) and 
Bristol 17 November (no fur- 
ther information given). 


Little boxes 


Lift UK Ltd, established mak- 
ers of storage systems for mu- 
sic and video recording, are 
launching a range of storage 
units for disks. 

The Databoy range includes 
desk units for 2 in, 3.5 in and 
5.25 in disks. The ridged con- 
struction means that disks can 
be flipped forward for brows- 
ing, without the row collaps- 


ing. 


Rees 


23-disk units will cost £3.99 
and 43-disk units will cost 
£5.99. Models with protective 
lids are expected to follow. Lift 
are also advertising a logo- 
stamping service for promo- 
tional purposes. 

Information from Lift (UK) 
Ltd, Triangle Business park, 
Wendover Road, Stoke 
Mandeville, Bucks HP22 5BL. 
Tel. 0296 615151. 
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Trt PAIN 


Rich Mellor has been attracted to the latest version of 
The Painter by its upgrades. 


INFORMATION 


Program: The Paimter V4.01, for 
QL with 256K+ expansion. 
Price: £45 (+£10 bank costs) or 
3000 Belgian Francs. Add 300 
BFr if outside EEC. Cheques 
payable to Van der Auwera. 
Publisher: Progs, Haachtstraat 
92, B - 3020 Veltem, Belgium. 
Tel: (016) 48 89 52. 


hroughout the QL’s 

long life, there have 

been several drawing 

packages which var- 
ied a great deal in utility, speed 
and number of features. The 
Painter is the most recent in a 
long line up which includes 
such illustrious names as 
GraphiQL Plus, MiceArt, M- 
Paint and Eye-Q., 

In 1989 I went to the Stafford 
Computer Show and saw The 
Painter. | was hooked after a 
few minutes using it, but de- 
cided not to purchase it at the 
time. Since then, several im- 
provements have been made 
and when I received a special 
offer to buy a copy recently, I 
decided to take it up. 

The current version is now 
fully Minerva compatible and 
has many improvements in 
speed compared to the earlier 
versions. Thereisanew manual 
in an A5 ring binder, which is 
more informative than previ- 
ous manuals. 

So why is The Painter spe- 
cial? On loading you soon no- 
tice the first difference. All the 
commands are chosen from 
menus on-screen. This option 
screenis actually separate from 
the main drawing screen — so 
thatthe screen does not become 
cluttered — and pressing ‘EN- 
TER’ switches between the two 
screens. The number of differ- 
ent options seems rather 
daunting, but because the pro- 
gram uses Qjump’s pointer in- 
terface, it is very simple to op- 
erate, and soon the manual be- 
comes just something to refer 
to when using the more com- 
plexcommands. There isa help 
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The Painter: Edit pixels one by one in Enlarge mode and see the effect immediately. 


function available from within 
the program which acts as a 
useful reminder on using the 
more complicated options. 
The Painter appears to be a 
very professional program. It 
can be operated as easily from 
the keyboard or a joystick as 
from a mouse: a special con- 


figuration program allows you 
tospecify either mouse settings 
or the speed at which the key- 
board is read (if you do not 
possess a mouse). Users with 
full-size keyboards may expe- 
rience a little difficulty in get- 
ting the settings so that the on- 
screen pointer does not move 


so fast as to be unusable, but 
with a little perseverance, the 
program can soon be set up to 
match your keyboard skills. I 
do not possess a mouse, but 
would love to see the program 
working with one, as the point 
trail mode (which leaves a trail 
of dots ora pattern onscreen as 
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you move the pointer around) 
would be a joy to use, 

The program can deal with 
mode 4 and mode 8 screens (it 
can also convert them) as well 
as having all of the normal 
commands associated with 
drawing packages—circle, line, 
plot, square, fill, and many 
more. It does however also 
have some new and different 
commands for drawing pic- 
tures and for adding text to the 
screen. 

On the drawing side, the 
standard OL ARC command 
has been replaced by a new 
‘Curve’ command. This ena- 
bles many more types of curves 
tobedrawn. Yousimply choose 
the command from the menu 
screen, switch to the drawing 
screen (press ENTER), select 
the two ends of the curve and 
then use the cursor keys to 
move the high point of the 
curve. 

There is also a ‘Turn Shape’ 
command which is actually 
more complex than its name 
may at first suggest. You need 
tooutline the area to be ‘turned’ 
using a rubber-banded box. 
You can then specify four cor- 
ners of any four sided shape 
into which the area will be 
moved. This can overlap the 
original, or be in a different 
place, but in any case, the 
transformation is smooth. Itcan 
even be used to re-shape a rec- 
tangle into a bow, for example. 
This command is very power- 
ful, although it may also mag- 
nify/shrink the area which is 
to be re-shaped, and for this 
reason, I would have preferred 
the option to merely rotate a 
four sided shape as well. 

Other graphics commands 
which are omitted by many of 
the other drawing packages 
include several methods of 
‘wiping’ part of the picture, 
Pan/Scroll part of the screen 
(useful to line up parts of the 
picture exactly where you want 
them) and Zoom in/out (al- 
lows you to actually magnify 
part of the picture on screen if 
you decide that you drew 
something in the wrong size. 
Allthis takes place withaspeed 
and ease of operation which 
leaves most programs well be- 
hind. 

There is no need to worry if 
you make a mistake: if you 
press ESC after carrying out 
any of the commands, the 
screen immediately reverts to 
its previous state. Unfortu- 


The same picture using the black and white screen jump 
option (here on a different print scale). 


nately this will only remove 
the last change to the picture, 
so for example, if you are 
drawing a series of lines, and 
decide to remove them alto- 
gether, you will have to use 
one of the Wipe options, which 
will also remove anything 
printed underneath the lines. 

Colours on screen are easily 
chosen from a separate screen 
which allows you to either pick 
the colours and stipple manu- 
ally, or froma large panel which 
shows all of the possible com- 
binations. If neither of these 
suits your needs, the program 
can also use user-defined pat- 
terns which can be used to fill 
an area of the screen. 


No mistake 


When your drawing is nearly 
complete, the Screen Edit com- 
mand comes into its own, This 
allows you to select a small 
area of the screen which is 
magnified so that it may be 
altered pixel by pixel. As you 
alter each pixel, a real-size rep- 
resentation of that part of the 
screen is shownin the top right 
corner so that you can see if the 
changes are having the desired 
effect. This is much quicker 
than the Magnified mode of 
GraphiQL Plus, although it 
does suffer a little by the fact 
that the pointer has to be moved 
to the top of the screen each 
time a different colour is 
needed. Unfortunately, this 
option cannot be used to line 
up the pointer on the overall 
screen, which would be useful, 
forexample, toensure that lines 
met each other. 

Much thought has also gone 
into the text-manipulation 
commands, which allow text 
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to be shown on screen in vari- 
ous ways. Not only can you 
use different fonts (standard 
QL fonts cannot be used, but 
there are several supplied with 
the program plus the option to 
design your own from within 
the program) and alter the 
character size, but you can also 
select to show the fonts in ital- 
ics, outline only, bold, or even 
shaded (from four different 
angles). 

There are two screens which 
allow you to specify how text 
is to be dealt with, the second 
of which allows even more 
complex operations. Text can 
be written not only sideways, 
but also on a slant and with a 
3D effect (letters further along 
the slant appear smaller). 

This text manipulation allows 
very complex screen displays 
to be created with writing in all 
possible directions, and in fonts 
up to 40x40 pixels in size (up to 
fifteen fonts may be loaded at 
any time). 

The tools to help you pro- 
duce a picture do not end here. 
The Painter can hold up to 12 
different pictures at a time (de- 
pending onavailablememory), 
and parts of one picture can be 
lifted across to another screen 
using the filter and copy screen 
commands. The Filter com- 
mand is useful if you set up a 
screen with several standard 
drawings on it, or just to doo- 
dle on. You could then opt to 
‘filter’ out the background col- 
our (eg black) which will enable 
this standard drawing to be 
placed anywhere on your cur- 
rent picture without affecting 
the background (useful for in- 
corporating clipart). 

Switching between the dif- 
ferentscreens couldn’ t be easier 
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— you simply choose the View 
option, which then shows a 
small representation of all the 
open screens. You can then 
open or close a screen, move 
parts of one screen across to 
another, or simply opt to work 
on a different screen, all by 
moving the pointer using the 
cursor keysand pressing space, 
The multiscreen ability of The 
Painter must surely make it one 
of the most versatile drawing 
programs available for any 
home computer. 

Once you have designed your 
screen, it can be saved to disk 
in normal 32K form or as a 
compressed screen. The com- 
pression routine is the best I 
have seen for the QL, although 
unfortunately at the moment 
there is no load-only version of 
the routine to allow people to 
use screens saved using it in 
their own programs. 

If you want a hard-copy of 
the screen, an excellent screen- 
dump is included within the 
program. This can operate both 
24-pin and 9-pin printers (it is 
apparently better with Epson 
compatibles), print the whole 
or part of a screen in three dif- 
ferent sizes, print sideways, 
colour inverted, or black and 
white only (this turns off the 
shading used for the different 
colours). 

There are many other options. 
Suffice to say that there are not 
many options which are not 
provided by this program (al- 
though I have yet to find a 
drawing package which can fill 
an area filled with a stipple 
colour). 

There are no real problems 
with using the program (al- 
though some tv users may ex- 
perience difficulty in reading 
some of the commands), how- 
ever, despite it being written to 
run under Qjump’s Pointer in- 
terface, oddly enough if you 
usea versionof PTR GEN later 
than that supplied with the 
program, youmay end up with 
two pointers on screen, both 
moving about in response to 
the cursor keys! 

As with any program, there 
are always one or two extras 
which the user adds to his/her 
wish list, but overall the pro- 
gram would seem to suit most 
people’s drawing needs. It may 
seem a little expensive (mainly 
due to having to order it out- 
side the UK), but I am certain 
that most users would say it 
was well worth it. 
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he OPD (One Per Desk) compu- 

ter was made by ICL Ltd. as a 

collaborative project between 

ICL, British Telecom and Sinclair 
with Psion providing the software. The 
same machine was badged for BT as the 
Merlin Tonto and for Australian Telecom 
as the Computerphone. The machine was 
intended for the busy executive with only 
limited computer skills. Most operations 
use multiple choice menus. 

The hardware is based on the QL using 
the same 68008 processor, QL ulas, 128K 
of ram and microdrive data storage. The 
machine has a ‘footprint’ of about the 
same length but twice the depth of the QL. 

Being launched shortly after the QL, the 
OPD suffered from the bad publicity at- 
tached to the microdrives, although ICL 
had much improved the reliability of the 
units. Despite this poor start, many hun- 
dreds were sold to local authorities, gov- 
ernment departments and large compa- 
nies. These are now coming on to the 
second hand market. They are regularly 
seen in magazines such as Micro Mart and 
Computer Shopper, with the cheapest units 
at about £100.00. Some computer supply 
companies are now replacing OPDs for 
their customers (mostly with PCs) and 
are selling the OPDs off cheaply. 

A typical OPD featured a mono (black 
and white) monitor, twin microdrives, 
battery-backed clock, on-screen calcula- 
tor, enhanced telephone handling, mo- 
dem, Xchange software (Abacus, Archive, 
Quill and Easel ), Basic and messaging 
(fax look-alike between OPDs). 

The OPD is designed to be left on and 
thescreen will blankifno keys are pressed 
for 10 minutes, Pressing any key, or an 
incoming call, re-activates the screen. The 
monitor is intended to be switched off 
between sessions leaving the computer 
powered for unattended functions. 
Monitors are available in 9 inch black and 
white or 14 inch Microvitec colour. 

The microdrives are similar to those on 
the QL, but save the data in a different 
density. Although blank cartridges can 
be used on either machine, the OPD can- 
not read QL cartridge data. There is a 
program (for the QL) by Dave Walker of 
DiscOver fame, that can convert data and 
Basic from the OPD to the QL and vice 
versa. The OPD records cartridge use and 
read failures, and warns when the car- 
tridge is due for renewal. The microdrives 
are very reliable. 

The telephone has auto-dialing from a 
saved Telephone Directory / Address file 
of as many as 500 entries if required, with 
optional monitoring of cost and duration 
of calls. A running totalis keptinmemory. 
The directory has a search routine and 
short code dialling. There is a re-dial facil- 
ity of any of the last six calls. Calls can be 
initiated through a built-in loudspeaker, 
the handset being picked up only when 
the connection is made. The machine will 
answer incoming calls using a program- 
mable computer voice chip with different 
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A QL 


COUSIN 


The ICL One Per 
Desk is also a friend 
of David Warne's 


replies available for different times, eg 
lunch, holidays, gone home etc. There is, 
no facility to record incoming calls. 

The modem is built-in and capable of 
Viewdata and Glass Teletype communi- 
cations. This enables connection to Prestel, 
Yellow Pages, Tony Firshman’s Board and 
many others. Screens can be saved to 
memory using the ‘Snapshot’ option, or 
entire programs can be downloaded to 
microdrive. Text can be prepared off-line 
to save phone charges. 

The software is an enhanced suite of the 
programs supplied with the QL with the 
import/export of data between applica- 
tions simplified. Being rom-based, it loads 
quickly and without read failures. The 
four are brought together under an oper- 
ating ‘shell’ called Xchange Task Control. 
Up to eight ‘tasks’ can be in progress at 
one time. Import and Export between 
Psion programs is fast and simple. 
Xchange was an optional extra. 

Basic is loaded from cartridge and is a 
reduced version of Superbasic. Many of 
the features of Superbasic are not avail- 
able on the OPD. There are no graphics as 
such (CIRCLE, LINE, BORDER, FLASH 
etc.), no EXEC and no DIR. Thescreen size 
of the OPD is also slightly smaller. QL 
Superbasic programs can be transferred 
to the OPD but need considerable editing 


ONE PER DISK 


before use. Although using the same cpu, 
QL machine code programs cannot be 
run on the OPD. There are differences in 
the way the OPD handles the screen etc. 
that make QL programs incompatible. 

Many OPDs were supplied with 
‘Messaging’, a fax look-alike. This isin the 
form of a capsule that plugs into the back 
of the unit. The capsule contains a rom 
with the necessary code, which enables 
OPDs to send pre-typed text to each other 
using the telephone system. Received 
Messages can be edited and sent on to 
other users, printed or saved on 
microdrive. Later roms allow the mes- 
sages to be sent at pre-set times and to 
different numbers to take advantage of 
cheap rate calls. 

The OPD is provided with a serial port, 
but this works in one direction only, be- 
ing intended solely for printer use. It is 
possible to download Basic files directly 
to the QL using the SER 2 port on the QL 
and a suitable cable. No input from the 
QL is possible by this route. 

Later improvements included disk 
drives from PCML (with 256K extra 
memory), and another from Computer 
One, but these areno longer manufactured 
and can only be obtained on the second | 
hand market. A variety of plug-in cap- 
sules were also provided, but most were 
to enable the OPD to connect to ICL main- 


frame computers and are of little use to | 


enthusiasts. There were later options to 
allow the direct transfer of files direct 
from microdrive, via the telephone line, 
between OPDs and to import data into 
Quill or Abacus from Bulletin Boards. 

It is not possible to simply plug-in extra 
memory as on the OL because the OPD 
requires special code to ‘log-on and iden- 
tify’ the memory. A 128K expansion unit 
was made but few seem to have been sold. 

Software is in very short supply, possi- 
bly because there is no organised user 
group such as Quanta, although some 
business oriented programs were pro- 
duced. A diary/appointments program 
has been seen and also a CP/M operating 
system is available on one version of the 
disk drives, It is reported that Basic and 
‘C’ compilers were produced but no sign 
of one has been seen. 

QL owners who use their machine 
mostly for the Psion package will find the 
OPD easy to use and in a business envi- 
ronment, a very useful tool. Sadly, it suf- 
fers from the lack of compatibility with 
the QL-in the most important area, pro- 
grams. Very little software is produced 
for the QL in Superbasic now and useful 
programs like Flashback and Tony Tebby’s 
utilities cannot be used. The most promis- 
ing area lies in Xchange applications and 
itis possible to transfer the Archiver group 
of programs once sold by Eidersoft. 

Ihave both an OPD and a QL and swop 
data between them regularly. I like both 
of them. The OPD has made me friends in 
Scotland, Eire and Australia and the QL 
many at the local Quanta group. 
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INFORMATION 

Program: Super Disk Labeller 
Supplier: Dilwyn Jones 
Computing, 41 Bro Emrys, 


Tal-y-bont, Bangor, Gwyn- 
edd. Tel: 0248 354023. 

Price: £10.00 (p&p included) 
for3.5and5,25disksormdvs. 
256K memory required. 


ere we are then and 

just when I needed 

it. the program to 

make tidy printed 
labels for your floppy disks and 
what a good job it does. I have 
always wanted my Quanta li- 
brary disks to have the con- 
tents listed on their labels and 
now I can do it. 

This program can print labels 
that show the filenames on the 
disk in small print in several 
columns, plus a heading or ti- 
tle. It can also optionally in- 
clude statistics such as file size, 
type and update date. 

The reconfigurable printer 
driver with the package gives 
you control over the size of the 
textused and hence the amount 


DRAG? 


label for the disk in a default 
drive with the minimum of key 
presses from the user. 

Number two is a Sleeve In- 
sert which is a list of filenames 
ona piece of paper larger than 
a label for keeping with the 
disk, especially if you use 
sleeves with your disks — 
mostly relevant to5.25 in disks, 
although some 3.5 in disks are 
also supplied with clear plastic 
sleeves. With this facility, you 
can print a sheet showing 
filenames on a disk together 
with the disk name, which can 
be filed away easily. 


Printer 


Before using the program, 
you should select the printer 
driver to use with your printer. 
Several printer drivers are 
supplied with the program as 
follows: 


DEFAULT_DRIVER: This is 
avery simple driver using very 
basic control codes that should 
work on just about any printer. 

9 PIN_DRIVER This is a gen- 
eral purpose printer driver that 


of filenames that can be cata- eet agr its i seems to work with all Epson 
logued on the label. BRAGZ op es ee compatible printers that can 
ware 2 print in condensed elite sub- 
Sorted HLF ARP ren ‘ahi It has nes ee 
er : ore release on Star LC10an 
Filenames can be sorted into HH eh Centronics GLPII printers quite 
alphabetical order and even Fics! IRN successfully. 


grouped so that, for example, 
only Quill_doc files are listed. 
Once the label has been assem- 
bled you can then edit the text, 
if required, or add your own 
text if there is room. There are 
quite a number of permuta- 
tions possible. 

There are also three special 
facilities. 


Pith? 
REROWE 
RECORS 


9 PIN PROP_DRIVER This 
is a proportional spacing 
printing version of the above. 

24 PIN_DRIVER A 24 pin 
version of the nine pin driver 
above. 

24 PIN _PROP_DRIVER A 
proportional spacing version 
of the 24 pin printer driver. 


The program is driven by 
function key menus: F1 for se- 
lect drive and read directory, 
F2 for sort, group and select 
filenames, F3 for make / view / 


and F5 for quick label. It is ca- 


edit label and backup, F4 for 
printouts and printer drivers 


John Shaw delves into the 
possibilities offered by a small 
package dedicated to sorting 
and labelling disk files. 


Labeller 


Number one is the Quick La-  pable of reading what is on a 
bel facility whichsimply makes drive, assembling a label and 
asorted multicolumn filename — starting to print it after it has 
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sorted the filenames into or- 
der. 

The printing will consist of a 
heading, made up of the disk 
title and capacity in sectors. All 
columns are the same size and 
the width of the column de- 
pends on the longest filename 
found on the disk. 

The Sleeve insert facility ena- 
bles you to print a piece of pa- 
per that can be stored with the 
disk in its sleeve, if you use 
them, or can be used in a disk 
box to remind you where each 
disk goes. 


Selected 


The Files Tidy List is a com- 
plete list of selected files on a 
disk, printed ona normal sheet 
of paper. It differs slightly mn 
thatitallows you to manipulate 
the list of files on a disk first, 
suchas selecting only the _doc 
files, forexample. The purpose 
is for you to be able to store on 
paper, for easy reference, a 
master list of files that you can 
look up at a later date. As it 
allows you to print on whole 
pages, you can use it for disks 
that have a very large number 
of files. 

The Main Label making 
function is a little more com- 
plicated than the Quick Label 
function, To enable you to per- 
form more manipulations on 
the label content before print- 
ing it, the filenames are read 
into an array list, where you 
can sort them into order, group 
by prefix (filenames starting 
with given letters or directory) 
and suffix (filenames with a 
certain extension only, suchas 

doc files), 


Menu 


On the same menu there are 
other processes that can be ap- 
plied to the list. The first and 
most obvious is to sort it into 
alphabetical order. You can opt 
to groupa listof files according 
to a suffix or extension name. 
For example, if you wanted all 
the doc files listed together 
and all the _dbf files listed to- 


DRAG? sprite 
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gether. Up to ten extensions 
can be listed for the program to 
do the matching. 

The program runs through 
the list of filenames, placing 
them in order as it finds the 
matching extensions. On the 
Super Disk Labeller disk, for 
example, you could list all the 


SOFT FILE/DISK LABELLER 


you want, you then have to 
make a label. This is a copy in 
memory of what the label will 
be like when printed. After 
building up the label layout 
you can then preview and edit 
the lines of text. 

The first two fixed types are 
the commonly available sizes 


Fi» SULECY CRE eh REND BloceieeY 
PP = GT, CRAP BO SL PRES 
§2« PCAN La AD BA 
fa » PRITORE GD PRIDER Deo 


#S = SURX 1A 
Gi BAT 


wee 


Wa mer & 


“This program can print labels 
that show the filenames on the 


disk in columns and optionally 
include file sizes, etc. 


printer driver files together by 
using the extension _dat. 

There is also a similar facility 
to group filenames by their 
root. Root in this case means 
the first few characters of a 
name, which could simply be 
a letter or two at the start of a 
name. 

The final option on this menu 
allows you to undo any sort- 
ing or grouping operations 
that you may have performed 
on the files list. Tt simply re- 
stores the original list as it was 
read from the disk by killing 
the index list within the pro- 
gram. 

Once you have sorted, 
grouped and selected all the 
files you want into the order 


README 
RECORD 
PUMORS 


SCREEN code 
WORMc_ady 
WORM boot 
WORM loch 


of labels on a roll for 3.5 in 
disks. Type one is the larger of 
the two types. This is the type 
of label that folds round the 
edge of the disk. The second 
type is a label that does not 
wrap around the edge, but fills 
the label area on a 3.5 in disk. 


Others 


The 5.25 in labels are the third 
type. These are smaller labels 
that fit in one corner of the 
disk. This type will probably 
not be used much as most OL 
owners use 3.5 in disks. The 
fourth type is an address label, 
3.5 inches wide and 1.5 inches 
deep. The final type calls on 


WORM local 
WORM Tocaw 
WORM obj 
ADEM pics 


you to enter the label size your- 
self. 

Next, you are asked for the 
text area layout details. Five 
choices are shown on the 
screen: single column, 
filenames only, single column, 
with statistics, multiple col- 
umns, with full filenames, 
multiple columns, best fit and 
squashed best fit. Once you 
have sorted, grouped and se- 
lected the list of files as you 
want to, there is one more 
special facility. The Backup 
utility is a short method of 
making a backup copy of the 
disk. The files are copied in the 
order held in the list in Super 
Disk Labeller. [t can look very 
professional when all the 
filenames are listed in alpha- 
betical order or grouped when 
looking at the disk with the 
DIR command in Basic. 

There is a Customise Driver 
option that lets you edit exist- 
ing printer drivers or create 
new ones specifically for your 
printer. There are some thirty 
sets of codes to enter, so you 
will need your typing fingers 
in good working order and 
plenty of patience. 


Options 


To give you some idea of the 
available options, a selection 


fromthe menusinclude:Group 


by Root, Group by Extension, 
Manual selection, Sleeve insert 
printout driver, Files tidy list 
printout, Select label types, 
Backup selected files, Cus- 
tomise printer, Use default 
printer. 

So, here we have a superb 
piece of programming utility, 

containing all the are e op- 
tions you could wish for and 
sold together with a 20-page 
User Manual which [ found 
easy to use and follow. 

In addition, if you havea very 
unusual printer, you can con- 
tact Dilwyn Jones and he will 
do his utmost to be of assist- 
ance. 

A good, well thought out 
package, representing excellent 
value for money. 


WORM sprite 
~~ -GREPHIES WORK--- 
—-HALE-~~ 
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should begin by asking the questions: 

‘Why bother with machine code? Why 

not stick to Basic, or in the case of the 

lucky QL owner, stick to SuperBasic, 
surely the best impiementation of the lan- 
guage on any machine?' 

Up to a point, SuperBasic is fine. | write 
SuperBasic programs, and use other 
people’s SuperBasic programs all the time, 
with no complaints. None, that is, until | 
need some rapid screen handling, or | 
need them to multi-task, or I’m sick of 
waiting forever for the program to load, or 


The problem is, the microprocessor in 
the QL (or any other computer) doesn't 
understand SuperBasic. So each com- 
mand has to go through the interpreter, 
which converts it into numbers the micro- 
processor can understand. As a result, 
the QL spends most of its time trying to 
work out what the commands mean, and 
only a tiny fraction of its time actually 
carrying them out. Even worse, the micro- 
processor neverlearns, So no matter how 
many times your SuperBasic program 
loops through the same set of commands, 
they always need interpreting over and 
over again. What a waste of time! 

The next question should be: ‘What about 
compiled SuperBasic, using Supercharge, 
QLiberator, or Turbo?’ 


Compiler 


A SuperBasic compiler will turn your 
SuperBasic program into a set of instruc- 
tions the microprocessor can understand, 
so it doesn’t have to wait for the inter- 
preter, andcan carry them out at once. It’s 
magic to see your sluggish SuperBasic 
program become a fast, compiled pro- 
gram. And not only that, but it multi-tasks 
as well. What more could you want? 

Well, there are ways, and ways, of telling 
a microprocessor what SuperBasic was 
designed to tell it to do. Compilers tend to 
be long winded. As a result, the program 
tends to get very long, and expensive in 
ram use. Not very useful if you want sev- 
eral multi-tasking in your limited ram space. 
Not only that, but often there are much 
faster sets of instructions than the com- 
piler can find. So although compiled 
SuperBasicis much fasterthan interpreted 
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Machine 


ogramm 


SuperBasic, the program could be much 
faster still. 

Which leads us to the question: ‘What 
about other compiled languages?’ 

SuperBasic was designed to make things 
as easy as possible for human beings to 
tell the QL what to do. As a result, we get 
all the problems so far mentioned. Other 
languages, like Forth and C, are more ofa 
half-way house. They are rather more dif- 
ficult for us humans, but not that difficult, 
so most of us can pick them up if we're 
prepared to put the time and effort into 
learning them. The big advantage they 
have over compiled SuperBasic is that the 
compiler converts them into instructions 
that are more compact, and faster. But, 
even so, none of them can do it perfectly. 
The microprocessor can still be instructed 
in amore concise, and faster, way. But, in 
the end, the only way to do this is to instruct 
the microprocessor in its own language. 

Unfortunately, the microprocessor’s own 
language is an ever-changing series of 
numbers, which only computing maso- 
chists would attempt to use. But help is at 
hand, in the form of assembler language. 
This consists of a set of instructions which 
human beings can easily understand, but 
where each instruction converts to a unique 
number (or set of numbers) in the micro- 
processor's machine code language. For 
instance, inassembler language, we could 
write. 


MOVE. L D4, D2 


which simply means ‘Copy the long word 
stored in the D4 register of the micro- 
processor into the D2 register of the micro- 
processor’. The assembler will convert 
this into the hexadecimal number $2404, 
which the microprocessor will recognise 
as that precise instruction, and writes it 
into the program. What could be easier? If 
some experts are to be believed, nothing 
is easier. 

Well, in spite of what some of the experts 
say, it is a fact that the vast majority of 
computer users find machine-code pro- 
gramming very difficult, if not actually im- 


stematt 


Code 


The first in a new series by Alan Bridewell, building 
on basic Machine Code skills. 


possible. So, why should this be? 

It's not that following the architecture of 
the microprocessor is difficult. Ideas like 
address, data, register and program coun- 
ter are easy enough. And the lines of 
program are easy enough in themselves. 
Some of the instructions are quite subtle, 
but with a bit of thought they are all under- 
standable.) With some effort, most of us 
who dabble in machine code can follow, 
say, Simon Goodwin's DIY Toolkit rou- 
tines, and possibly make slight modifica- 
tions to the code to suit our own needs. But 
to go from there to writing whole programs 
from scratch is not on. 

The problems, | believe, come down to 
these. 


1. It is too big a jump of imagination to go 
from single program lines to working out 
what large chunks of code will do. It’s one 
thing to write code which simply moves 
numbers around registers and ram. It's 
quite another thing to work out how doing 
this can make things appear on the screen, 
or open files, or print to the printer, or any 
of the real jobs you want your program to 
do. We need small chunks of code which 
perform a recognisable task. 

2. Many (possibly all) of these chunks of 
code are already there as trap calls or 
vectored routines. However to use them 
we have to put certain data in certain 
registers, and then sometimes look at other 
registers to find the result of calling the 
code. As it's almost impossible to remem- 
ber where all this data has to go, it means 
continually referring to am/c programming 
manual every couple of lines we write. 

As a self-taught programmer, who does 
it for amusement, | have worked out a 
system which has enabled me to produce 
a number of useful programs. 

What | have produced, and what | would 
like to share with you, is a programming kit 
consisting of small chunks of code to per- 
form particular functions. They are fully 
annotated to show how they work, and 
how they may be fitted together with other 
chunks of code. In particular, special note 
is made of any alterations they might need 
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in particular circumstances. For instance, 
every time the stack is used, the effect on 
the stack pointer is noted, so that when we 
need to use some data stored on the stack, 
we know where itis stored in relation to the 
current stack pointer. Also, if the code 
requires any data blocks, or buffers, or 
equates, these are set out so they can be 
conveniently moved to the end of the code 
to be lumped together. 

At this point | should say that | program 
using Assembler Workbench by Talent. 
(You should have no problems modifying 
the listings to suit your assembler.) | learned 
most of my machine code work by reading 
Adam Denning’s Advanced QL Machine 
Code, and a lot of what | have was pro- 
duced by taking his programs apart and 
using the bits, | have also referred much to 
Adrian Dickens’ QL Advanced User Guide, 
and, of course, to the many m/c programs 
that have been published over the years 
by QL World, and before that by QL User. 

| should also point out that these articles 
are not designed as a beginner's tutorial in 
assembler language. (If you are not famil- 
iar with it you should obtain a suitable 
guide.) These articles are aimed at helping 
the many who can read programs to be 
able to write programs. 

We will start by listing some of these 
chunks of code, and, where necessary, 
explaining what they do and how they doit. 
Then later, we shall put some of them 
together to make a program. 


Jobstart (Listing one) 
‘Jobstart’ is the ‘standard’ way to start the 
code for a multi-tasking job. I’m not sure 
i it's actually necessary, but it does allow 
you to identify the job among others, using 
a toolkit command which prints out the 
state of the current jobs in the machine. (| 
don't know how it works - perhaps some- 
day I'll find out.) 


Priority (Listing two) 

Often the first thing we want a job to dois 
to set its priority to fix what proportion of 
the processor's time it is going to use. 
(Basic has a priority of 32.) 

‘Priority’ is a TRAP 1 call. We must put 
#MT_PRIOR in DO (#MT_PRIOR is the 
hex number B). We must put the job ID in 
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MACHINE CODE 


Listing 1 


5 FEAR RE IEE IEG HE FE HE I DEFER SE HE aE HE HE J ESE EE J EE J eH 9 HE EE EH J a a a eH a aE a dE 
* JOBSTART * 
EAE ETE IEEE ESE ETE FE TE aE HE TEE HE SE FEE HE TE ETE YE SE TE ETE EAE EAE HE JE FE JE FETE SEE FEE JE J JE A SE EE 4 8 EE EE 98 90 28 2 9 aE a Fa 
THIS SHOULD BE HOW A MULTI-TASKING JOB SHOULD BE STARTED. 
START IS THE ADDRESS OF THE FIRST INSTRUCTION OF THE JOB. 
THE CHARACTER COUNT AND JOB NAME SHOULD BE EDITED AS APPROPRIATE. 


BRA.S START 5 BRANCH TO START OF CODE 

DC.L ° 3 ‘THIS IS STANDARD FORMAT FOR 
DC.W S4AFB 3; START OF A JOB) 

DC.W 4 5 CHARACTER COUNT OF JOB NAME 
De.B “TEST’ 3 NAME OF JOB 


START SHOULD NORMALLY POINT TO CODE SETTING THE PRIORITY OF THE JOB 
FEIT IIIT HEISE TGIF ITI REEIEIE IEEE MEI HE 
isting 2 


ic tealiaiieteliahahelateheiehehetetehtaheishehehdehdteh ddd deh dtd d dd td dda tte TLL LLL LE 
“PRIORITY * 
MIE EE EH EEE He HITE EEE EE EE TE HE AE HE EE HEH ESE EH EE HE EE HE 4 9 2 9 0 
THIS CODE SETS THE PRIORITY OF THE MULTI-TASKING JOB. 
THE VALUE IN D2 SHOULD BE ADJUSTED TO THE PRIORITY REQUIRED 
«PRIORITY MOVEQ #$B,DO } #MT_PRIOR IN DO 
MOVEQ #-1,D1 3 OF THIS JOB 
MOVEQ #1,D2 3 701 
TRAP #1 


FEA TET TE HE HEHE TE TE HE AE He EAE HE AE HE HE HEH EE EE HEE EAE 9 4 ES 9 EE SE 9 SE 


Listing 3 


(EE HE A a ea At a a a EE 
“CONSOLE * 

isliaihahealiahaatiaiiaiahehstededahiahaishahehaiehaiahehehetehehehehetatehstehalahsdsiedhedatettekehetdedetettttt.t kk 

THIS 1S HOW WE SET UP A CONSOLE WINDOW. 

MOST JOBS WILL REQUIRE AT LEAST ONE CONSOLE WINDOW. 


OPEN THE CONSOLE CHANNEL 
LEA.L 


MOVE. W 
JSR 


PBLOCK,A1L 
$C6,A2 
(A2) 


5 PBLOCK ADDRESS IN Ai 
5 UT_CON VECTOR IN A2 


SAVE THE CHANNEL ID WHICH UT_CON ROUTINE LEAVES IN AO. 
MOVE.L AO ,-(A7) 7 SAVE CONSOLE ID ON STACK 
5 * MOTE * THIS CHANGES A7 
3 BY -4, READY FOR NEXT 
STACK ENTRY. 


CLEAR THE WINDOW (OPTIONAL) 


MOVE. W #$FFFF D3 ; 
MOVEQ #%20,D0 
TRAP #3 

BRA.S NEXTBIT 


INFINITE TIMEOUT 
} #8SD_CLEAR IN DO 


} SKIP BLOCK 


* NOTE #* NORMALLY, WE NEED TO PUT CHANNEL ID IN AO BEFORE USING THIS 
TRAP TO CLEAR THE WINDOW. HOWEVER, IN THIS CASE IT HAS ALREADY BEEN 
LEFT THERE BY THE PREVIOUS SUBROUTINE 


DEFINITION BLOCK. ADJUST VALUES TO FIT REQUIREMENTS 


PBLOCK } GREEN BORDER 

3 2 PIXELS WIDE 
3 BLACK PAPER/STRIP 
3 WHITE INK 
3 WIDTH 

3 HEIGHT 

3 X% POSITION 
1 Y POSITION 


00 
oo 


COnreNJONS 


HAE IE FE FETE AE HE HE TE HE TE HE aE HE SE HE HE HEHEHE HEHE TE SE HE HE HE HE EH HE ee HE a HE EE SE 9 HE a a 
Listing 4 


adh aaadha Reta iadeatiatalcieaiiahaiaiaheiehaiehaiehaheheheteheiehetaiateiahehetaiaiehehebeheiehehebetehehehahels tetehahehehanehehehehe dant kkk hed 
‘MESSAGE 
FOIE ETE TE HE He EE TE Te EE AE HE HE TE SE HE TE HE AE HEE AEE HEE EE ET a a A A a Oe a a a aa 
THIS CODE WILL PRINT A STRING IN A WINDOW. 
THE BASE ADDRESS OF THE STRING MUST BE IN A1. 
THE CHANNEL ID OF THE WINDOW MUST BE IN AO. IF IT HAS BEEN LEFT THERE 
FROM THE PREVIOUS CODE, WE DON’T NEED TO DO ANYTHING ABOUT IT. (IF WE 
DO, WE‘Li ONLY PUT A NUMBER WHERE IT ALREADY IS SO IT WON’T MATTER.) 
IF THE CHANNEL ID WAS THE LAST ITEM ON THE STACK IT WILL BE FOUND AT 
(A7), IF THE 2ND FROM LAST AT 4(A7), IF THE SRD FROM LAST AT B(A7), ETC 
- MESS (A7> ,AO 3 OR 4(A7),A0 OR 8(A7) ,AGO, ETC. 
3 CHANNEL ID IN AO 
MESSAGE ,A1 3; BASE ADDRESS IN Ai 
#bO,A2 3 UT_MTEXT VECTOR IN AZ 
(A2> 
NEXTBIT 3 SKIP MESSAGE 
3 
3 MESSAGE. ADGUST LABEL, LENGTH AND CHARACTERS TO SUIT 
5 
- MESSAGE DC.wW 18 
bC.B 


3 LENGTH OF MESSAGE 
‘THIS IS A MESSAGE: * 
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D1. (In the case of the current job we put 
-1 into D1.) The actual priority we put into 
D2. 


Console (Listing three) 

Jobs almost invariably need at least one 
console window to input data from the 
keyboard. The routine 'Console' will open 
a console window, clear the window (op- 
tional), and place the console channel ID 
on the stack. 

The routine uses the UT_CON vector 
which must be placed in A2 before jump- 
ing to its sub-routine. (UT_CON is $C6.) 
The subroutine will also require the ad- 
dress of a parameter block for the window 
in A1, and this must be in the following 


byte border colour 

byte border width 

byte paper colour 

byte ink colour 

word window width 

word window height 

word X origin (top left corner) 
word Y origin (top left corner) 


Message (Listing four) 

The next thing we would normally want 
to do is to print some text to the window as 
a start-up message, or a prompt to input 
something from the keyboard. The routine 
‘Message’ prints a message to the win- 
dow. 

It requires UT_MTEXT in A2, which it 
calls as asubroutine. (UT _MEXT is $DO). 
The subroutine requires the channel ID in 
AO, and the base address of the message 
in A1. This particular bit of code could 
possibly be used several times in a pro- 
gram, and each time it will need modify- 
ing. You need to adjust the label, length 
and characters of the message, and you 
will have to work out where the channel ID 
is stored in relation to the current stack 
pointer. (This only means carefully check- 
ing what has been added to the stack 
since the channel ID was stored.) 


Instring (Listing five) 

The routine ‘Instring’ is to input a string 
from the keyboard and place it in a store 
called Buffer. Here we run into a Qdos 
peculiarity which needs overcoming. 

If we wish to use this string as aname, 
say, of a file we wish to open, then Qdos 
will expect the string to be preceded by a 
word holding the string length. However, 
the IO_FLINE routine we use to fetch the 
string just stores the string in buffer, and 
leaves the string length (including the LF 
at the end) in D1. So we precede ‘buffer’ 
with a one-word store ‘BUF_POS’. We 
then put D1 in ‘BUF_POS'’ and subtract 1 
to remove the LF from the count. 

Now, if we need the string preceded by 
the string count, we consider it as starting 
from ‘BUF_POS’. But if we only need the 
string without the count, we consider it as 
starting from ‘Buffer’. 


Open (Listing six) 

The routine ‘Open’ will open a channel 
using a name stored in ‘BUF_POS’. (We 
use ‘BUF_POS'’ rather than ‘Buffer’ be- 
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Listing 5 


sri eigen dies atin teamed etal 


i 
. “INSTRING* 
3 FEAR PETRIE IEA HEHE AEE FE HEI FE HE TEE HEHE HEE EE TEE TE ETE TE TE FETE HEHE TE SESE ETE TE FETE ETE JEJE ETE EEF JE TE AEE EAE ETE TE HE aE TE EEE 
3 THIS INPUTS A LINE OF TEXT FROM KEYBOARD AND PLACES IT IN A STORE IN 
3 RAM CALLED ‘BUFFER’. 
3; THIS STORE HAS TO BE LONG ENOUGH TO HOLD A LINE OF TEXT. 
3 
- INSTRING MOVE. {A7) ,AO 3 OR 4(A7),A0 OR 8(A7),A0O, ETC. 

3 CONSOLE CHANNEL ID IN AO 
#BUF _LEN,D2 3; LENGTH OF BUFFER IN D2 
#SFFFF,DS 5 INFINITE TIMEOUT 
LEA.L BUFFER,A1 ; BASE ADDRESS OF BUFFER IN A1 
MOVEQ #2,D0 3 #IO_FLINE IN DO 
TRAP #3 


MOVER 
MOVE .W 


IF THIS STRING IS TO BE USED BY QDOS AS, SAY, A CHANNEL NAME, THEN 

WE NEED THE ADDRESS OF CHANNEL NAME IN AO. QDOS EXPECTS THIS NAME TO BE 
PRECEDED BY A WORD HOLDING THE LENGTH. BUT IDO_FLINE JUST RETURNS THE 
CHARACTERS, WITH A CHARACTER COUNT (INCLUDING THE LF) LEFT IN Di. WE 
MAKE SURE THE ADDRESS OF BUF_POS IS 2 LESS THAN THE ADDRESS OF ‘BUFFER’ 
THEN WE SUBTRACT 1 FROM THE VALUE IN Di AND PUT IT IN ‘BUF_POS‘'. NOW 
PUTTING THE ADDRESS OF ‘BUF_POS* FOR THE ADDRESS OF THE STRING GIVES US 
THE STRING IN THE CORRECT FORMAT. 


LEA.L 
SUBea.L 


BUF_POS,AO 
#1,D1 


3 BUF_POS IN AO 
3 SUBTRACT 1 FROM THE D1 REMOVES 
3 THE LF FROM THE STRING COUNT. 
MOVE .W Di, (AO) 3 PUT NEW STRING LENGTH IN BUF _ 
HE MEE HEE FE TE IE FETE AE TEE FE TEE TE ETE TE ETE FETE ESE TEETER E FETE TE TEER ESE TEFE FE FE SE EAE TEE AEE TE FE FE FE ETE TE ETE TE TE TEE TE Se aE 
TO BE POSITIONED AFTER THE CODE 
WE NEED ‘BUFFER’ FOR THE STRING AND 'BUF_POS’ FOR THE STRING COUNT 


- BUF_LEN 3 LENGTH OF INPUT BUFFER 


5 
. BUF _POS 
3 
. BUFFER 
xen NOTE ##4% BUFFER SHOULD COME LAST OF ALL. 


> 
3 He ME SEH HE RE RE EE AE Ie BE RE HEE EE I FE SS aE TE HE HE HE EE I HEHE HEHE TE HE EE IE ESE HE TE HE Ha EE aH EH Ha aa 


Listing 6 


Saath Rede Rhedeiehteteteheheiehedehehiatehehed dhhehehehhehedaddad dh tddtted deh teddtek.kk thd 
"OPEN * 
i ctietiladeMeiedeiataeheRelehstehehaiatetteieiehedeieiaheiaieheiehetteiReheheiedetdeieietededededeiedehnetedeiedehehdahahahehhadhdahel 
THIS ROUTINE WILL OPEN A FILE 
WE NEED THE ADDRESS OF CHANNEL NAME IN AO. QDOS EXPECTS THIS NAME TO BE 
PRECEDED BY A WORD HOLDING THE LENGTH. SO WE USE “BUF_POS" RATHER THAN 
‘BUFFER’ AS THE POSITION OF THE START OF THE STRING SO IT STARTS WITH A 
STRING COUNT (SEE *INSTRING‘) 


LEA.L 
MOVE 


BUF _POS,AO 
#1,D3 


3; BUF_POS IN AO 
3 OPEN OLD SHARED FILE, OR 
} #0 = OLD EXCLUSIVE FILE 
3 #2 = NEW EXCLUSIVE FILE 
3 #3 = NEW OVERWRITE FILE 
3 #4 = OPEN DIRECTORY FILE 
3 JOB ID FOR THIS JOB 
; #ID0_OPEN IN DO 


MOVEQ #-1,D1 
MOVEQ #1,DO 
TRAP #2 
TST.L DO 3 ERROR? 
BEQ.S GOT_FILE 3; IF NOT, THEN CONTINUE. ELSE:— 
ae0% NOTE *###% IF THIS ROUTINE 18 REPEATED TO OPEN MORE THAN ONE FILE, 
THE NAME ‘GOT_FILE’ WILL NEED CHANGING FOR EACH OCCURANCE OF THE CODE. 


PRINT ERROR MESSAGE 


MOVE.L (A7) ,AO OR 4(A7),AO, OR B(A7),AO, ETC. 
CONSOLE CHANNEL ID IN AO 
UT_ERR IN AZ 


PRINT ERROR MESSAGE 


MOVE.W #CC,A2 
JSR (A2) 


GO BACK TO SCREEN PROMPT FOR INPUT 


OR WHATEVER WE CALL THE CODE 
FOR THE PROMPT. 


> 


BRA.S MESSAGE 


IF NO ERROR, THEN THIS CODE IS USED 

MOVE.L AO,-(A7) 3 SAVE CHANNEL ID ON STACK 
3 * NOTE * STACK POINTER A7 
3 CHANGES BY -4 


.GOT_FILE 


5 
3 * NOTE * AT THIS POINT THE NEXT CODE WILL PROBABLY BE TO PUT WINDOW ID 
3 BACK IN AO, TO USE THE WINDOW, OR MAYBE TO CLOSE IT. 


' 
Listing 7 


i Hishathshedahichchahaahahiahstehehehahaheheehahahedehehetaheletehehaleheheltshahahaleiedahebehakdatsdeteiedc dtek.thcLck tt 
“GETHEAP ' 
schasheaaliaieihehahahehahehsbahahshehiehahshaieheteheheiehaisheletedeietehaieddetded tehtetot-tdttttt4.1.4.4,464-4.4.2,43,0,0,0,000,. 

THIS ROUTINE WILL TRY TO ALLOCATE HEAP_ROOM OF COMMON HEAP SPACE AS A 


BUFFER. IF IT CANNOT ALLOCATE THIS MUCH, IT WILL HALVE THE NUMBER AND 
TRY AGAIN. IT WILL KEEP REPEATING THIS UNTIL IT ACTUALLY SUCCEEDS IN 
ALLOCATING AT LEAST 2 BYTES, OR GIVE UP. IF IT SUCCEEDS, IT WILL STORE 
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cause Qdos expects the string to be pre- 
ceded by a word giving the string length. 

We must take care to open the correct 
type of channel, and this is fixed by the 
value we put in D3. 


0 = old exclusive 
1 = old shared 

2 = new exclusive 
4 = new overwrite 
5 = directory 


If we are inputting data from an old file, 
then we would normally make it ‘old shared’, 
so other programs can use the file at the 
same time. But if we are outputting data to 
a new file, say a serial printer, or a screen 
window, we would normally make it ‘new 
exclusive’ so that it only gets data from this 
program. 

As we might well use this routine more 
than once in a program, we must also be 
careful to alter the labels suitably each 
time it is used. 


Getheap (Listing seven) 

Auseful thing is to use some of the spare, 
unused ram to speed up program by re- 
ducing the number of times we need to 
access afile on microdrive (or disk). So we 
allocate a chunk of the common heap 
(unused ram) as a buffer. 

The simplest thing might be to work out 
(or guess) how much buffer we want, and 
allocate that amount of common heap for 
the use of the program. But since we don't 
know what other programs might be run- 
ning at the same time, we don't know how 
much common heapis available. If there is 
not enough to give us what we ask for, the 
program will stop with an error message. 
So the best thing to do is to try to get the 
amount we want, butif there is not enough, 
we ask for less, and keep asking for less 
until Qdos gives us what we ask for. 

The routine ‘Getheap’ keeps halving the 
amount asked for by using aLSR.Lon D1, 
which contains the amount of ram we are 
asking for. (If no common heap is avail- 
able, the program will just stop.) 


Stringtr (Listing eight) 

The routine ‘Stringtr’ will transfer strings 
of bytes from one channel to another. 
(Both channels will, of course, have to be 
already opened.) It will continue this until 
we get complete file transfer, or we get an 
error. The routine contains alternative bits 
of code depending on whether we use a 
small buffer at the end of the program to 
store the collected bytes, or whether we 
use some common heap. If we use asmall 
buffer at the end of the program, we can 
probably use the same one we undoubt- 
edly needed for storing the names of the 
channels we opened earlier. This means 
the last part of the routine is redundant, but 
has been put in for completeness. 

This routine makes a lot of use of the 
stack, with three things stored there; the 
two channel IDs, and the error return when 
we input the string (so we can see if we 
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MACHINE CODE 


THE ADDRESS AND NUMBER OF BYTES ALLOCATED IN HEAP_ADDR AND HEAP_LEN. 


NOW WE TRY TO GET THAT AMOUNT OF RAM FROM THE COMMON HEAP 


MOVE.L 
MOVED 
MOVEQ 
TRAP 
TST.b 
BEQ.S 
LSR.L 
CMPI.L 
BGT.S 
BRA.S 


.GET_ROOM #-1,D2 
#$18,D0 
#1 

DO 
GOT_AREA 
#1,D1 
#1,D1 
GET_ROOM 
JOB_END 


HAVING GOT SPACE ALLOCATED, 
ALLOCATED. 
GOT_AREA LEA.L 
MOVE.L 
LEA.L 
MOVE.L 
BRA.S 


D1, (A1) 


AO, (AL) 
NEXTBIT 


HEAP ALLOCATION BLOCK. 


FIRST WE NEED TO SAY HOW MUCH HEAP_ROOM WE WANT. 
SO WILL REQUIRE ONE MDV ACCESS 


SECTORS, 
THE FILE. 


EQU 4096 
De.L ie] 
DC.L ie) 


«HEAP_ADDR 
- HEAP _LENGTH 
5 


#HEAP_ROOM,D1 ; BYTES REQUIRED IN Di 


3 ID FOR THIS JOB IN D2 

3 #MT_ALCHP IN DO 

3 TRY TO GET RAM 

3 ERROR 

3 YES, THEN CONTINUE. ELSE:-— 
3 DIVIDE BYTES REQUIRED BY 2 
3 IF Di<=t STOP WETH ERROR 

3 ELSE LOOP AND TRY AGAIN 


WE MUST SAVE ADDRESS AND NUMBER OF BYTES 


HEAP_LENGTH,A1 


3 SAVE NUMBER OF BYTES 


HEAP_ADDR,A1 


5 SAVE AREA ADDRESS 
3} SKIP HEAP ALLOCATION BLOCK 


4096 BYTES I8 & MDV 
FOR EVERY 8 MDV SECTORS IN 


3; HEAP ROOM REQUESTED 
3 SPACE FOR HEAP ADDRESS 
3 SPACE FOR LENGTH OF HEAP SPACE 


| Malai cheated Dalia ida ReteRsheatetelieReliedReheiehetekeieketatehehehaieishelelRleRdeReRedeetedetaRtatedelhehehteehetedeletetek tekatelahal 


Listing @ 


FETE A TE ETE HE TEM ETE TE FETE TE TE TEE TE AEE TE HE A DE EE FETE ETE TE HEHE EF IE HE Ee JHE SE ETE FEE IE IEE EE a ET SHIEH I 


“STRINGTR’ 


TTT ETE TE ETE TEE TE TET FETE THE ETE TE TE ETE IESE REET HEE TE ETE TEE JER TEE TEETER TE UIE TE EE ETE EEE EIEN HIRI 
THIS ROUTINE TAKES A STRING OF BYTES FROM A CHANNEL AND STORES THEM IN 


STRING TO ANOTHER CHANNEL, 


5 
3 
i 
3 
3 A BUFFER, UP TO THE LENGTH OF THE BUFFER (BUF_LEN). 
3 
3 
3 


IT THEN SENDS THE 


IT THEN KEEPS REPEATING UNTIL WE GET EOF. 


FIRST WE FETCH THE STRING FROM THE INFILE 


FILE _P MOVE.L (A7) , AO 


MOVER 


BUFFER ,A1 


#SFFFF ,D3 
#3,DO 

a3 
DO,-(A7) 


NEXT WE SEND STRING TO QUTFILE 
MOVE.L 4(A7) ,AO 
LEA.L BUFFER,A1 


MOVE .L D1,D2 


MOVEQ 
TRAP 


#7,DO 
“3 


3 
*#BUF_LEN,D2 


1 OR 4(A7),AO, OR B(A7),AG, ETC. 
INFILE_ID IN AO 

3} IF ‘GETHEAP’ USED, THEN 
LEA.L HEAP_LENGTH,Ai 
MOVE.L (A1),D2 

LENGTH OF BUFFER IN D2 

IF ‘GETHEAP‘ 1S USED, THEN 
LEA.L HEAP_ADDR,AL 

MOVE.L (A1),A1 

BUFFER ADDRESS IN Al 
INFINITE TIMEOUT 
#I10_FSTRG IN DO 

FETCH STRING 

3 SAVE ERROR RETURN ON STACK 
3 * NOTE * STACK POINTER A7 
3 CHANGES BY -4 


DR 8(A7),A0, ETC. 

DUTFILE_ID IN AO 

IF ’GETHEAP IS USED, THEN 
LEA.L HEAP_ADDR,AL 

MOVE.L (A1),A1 

BUFFER ADDRESS IN Al 
IO_FSTRG LEAVES THE NUMBER OF 
BYTES ACTUALLY FETCHED IN D1 
SO WE PUT THIS IN D2 
#10_SSTRG IN DO 

SEND STRING 


AT THIS POINT WE NEED TO KNOW IF WE HAVE REACHED THE END OF THE FILE. 
SO WE EXAMINE THE ERROR RETURN SAVED ON THE STACK. 


MOVE. L (A7)+,DO 


TST-L 
BEQ.S 


DO 
FILE P 


3; PUT ERROR RETURN BACK IN DO 
3 * NOTE * STACK POINTER A7 

} CHANDES BY +4 

3 ERROR? 

3 


NO, THEN LOOP FOR NEXT STRING 


FEIT ITE ETE TE ETE ETE ETE ETE TE TE EE ETE TE EE FETE EEE TEETER TEE SESE TE EEE EE IE i HERE aE Fe HEE HEE 
POSITION AFTER THE CODE 

USE GETHEAP FOR & LARGE BUFFER IN THE COMMON HEAP AREA 

THIS BUFFER WILL HAVE ITS ADDRESS STORED IN HEAP_ADDR AND ITS LENGTH 


STORED IN HEAP_LEN 
ee 

. BUF_LEN 
. BUFFER 


Eau 100 
EQu * 


**#* NOTE #*## BUFFER SHOULD COME AT THE END 


hchahshaddatiahashshshehatehatahstadetsahehahehstehaticdatahRahdaaakadatehateh td Ak h.k.t.4.%.8.8.4.4.0.4.4.4.00.008 eee 
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have reached the EOF). We must be care- 
ful that we know exactly where the stack 
pointeris at each stage, otherwise we shall 
be taking the wrong data from the stack! 


Close (Listing nine) 

Whenever we finish with any channels it 
is important we close them. If the stack 
contains other data besides the channel 
ID we need, then we may have to be a bit 
careful here. However, if the program is 
not too complicated (and well ordered) 
usually by the time we are ready to close 
channels, all we have left on the stack are 
IDs of unwanted channels, so there is no 
problem. 

Since closing channels is usually (though 
not always) followed by killing the job, | 
have included the line which will jump to 
the routine to do this. 


Endjob (Listing ten) 

‘Endjob’, the last routine in this first arti- 
cle, is the one needed to kill a job, either 
because it has been completed success- 
fully, or because an error has occurred. 

Fatal errors, when detected, should jump 
to JOB END, and this will give an appropri- 
ate error message in channel 0 before 
killing the job. 

A successful completion should jump to 
END JOB. 


In case you feel, after reading this first 
article, that Assembler Language pro- 


Listing 9 


FE ETE HE ETE ETE EAE ET AE HE AE ETE EE TE EE DE SE TET TEI EEE EEE EEE DET SE EE EH HE HH a 
“CLOSE * 


THIS ROUTINE WILL CLOSE AN OPEN CHANNEL WHOSE ID IS TOS 


MOVE.L 
MOVEQ 
TRAP 


CLOSE 
#2,D0 
#2 


(A7)+,A0 


3 
3 
| Tb Sata aia haliahatalachetaheliateiaieietehaialadeiahaieiaieliateleiahedaiadenelelateliadehsiaiehsheliaheialichslisidaialsdaiehehaidaisiiiaieladaiel 
3 
3 


5 CHANNEL ID IN AQ 
5 #I0_ CLOSE IN DO 


IF THIS IS THE LAST CHANNEL TO CLOSE BEFORE WE KELL THE JOB THEN THE 
NEXT LINE IS NEEDED TO KILL THE JOB. OTHERWISE, LEAVE OUT NEXT LINE. 


BRA.S 


3; * NOTE * IF THE CHANNEL ID WE WANT TO CLOSE IS NOT 105, 


END_JOB 


WE SHALL HAVE TO 


REMOVE THE OTHER ITEMS ONTO REGISTERS (OR RAM) TO GET TO THE ITEM WE 
WANT, USE IO CLOSE, AND THEN PUT THEM BACK ON THE STACK. 


FE FE EE EE EE EE EE He HE EE HE TE HHH 


Listing 10 


96 9ST HE AH IE 0 a aE a aE a aE EAE I Ee ea aa A a 
*ENDJOB’ 

FE FE eH HEE EE FE TEE FE SEE HE SE JE HEE EE SEE IE HE PEA A EE a a a a a a 

THE FIRST PART OF THIS ROUTINE SHOULD ONLY BE USED WHERE AN ERROR IS 

DETECTED BEFORE A SUITABLE WINDOW HAS BEEN OPENED. IT WILL GIVE AN 

ERROR MESSAGE IN CHANNEL ©, OR IN CHANNEL 1 IF CHANNEL O I5 NOT 


AVAILABLE. 


MOVE.W 
JSR 


. JOB_END 
(A2) 


i 
3 THE NEXT PART IS THE NORMAL 
MOVER 


MOVEQ 
TRAP 


#5,D0 
#-1,D1i 
#1 


*END_JOB 


$CA,AZ 3 UT_ERRO in A2 


ENDING OF A JOB BY KILLING IT. 


3 #MT_FRJOB IN DO 
3 ID OF THIS JOB IN DL 


HEHE BE FE SEF I ETE HE A EE PE a a EE HE a a EH Dd ttt tah th tietteiedaiiaheiaiedeieieliaieialial 


gramming is too difficult, | must point out 
that later parts are easier. Unfortunately, 
we can't really start to have a usable pro- 
gram without opening and closing chan- 
nels to screen, printer, file, etc., and input- 
ting and outputting text. So although these 
are not the easiest of jobs to program, they 


really need to come first if we are quickly to 
get to write a usable program. 

Obviously, we will need much more than 
this if we are going to get very far with our 
programming. But these are enough for a 
start, and next time we shall use them to 
produce a successful program. 


QUBBESoft P/D 


Public Domain and Shareware Software 
For The —— 


cm} = Sinclair Q.L. eeprs 
Independent QL/ Thor Users Group 50p S.A.E. (A5) for Software Catalogue 


Worldwide Membership is by subscription 
only, and offers the following benefits: 
Monthly Newsletter — up to 40 pages 

Massive Software Library —- mostly FREE! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 

Advice on Software & Hardware problems 
Discounts from most major suppliers 
Subscription just £14 for UK members 

Overseas subscription £17 


Disk 1: (Main System Disk) Contains the 
various passes of the Compiler, Header 
files and the Libraries. 

Disk 2: (Utils & Doc’s) Contains Utility 
Programs and Documentation for the 
C68 system. Also includes a ‘C’ Tutorial. 


Disks 3-7: (Source Code 1-5) Contains 
Source Code for following:- C68 Com- 
piler, CC, CPP, AS68, LD, Generic Part of 
Standard 'C’ Library, QDOS Specific Part 
of ‘C’ Library, Additional Libraries and 
Utilities such as MAKE and SLB. 


Copying fee: £2.50p (User Supplies Disks} or £5.00p (Pre-Copied Disks) 


MicroEMACS V3.9p Text E lit 
Disk 2: (Source Code) Contains All the 
relevant Source Code for MicroEMACS 
V3.9p. 
Also includes documentation on the lat- 
est update, and how it has been re-com- 
piled using the C68 Cornpiler. 


Disk 1: (System & Doc's) Contains 
EMACS, The main program. 
EMACS_RC, Resource file. 
EMACS_HLP, Help file. 

EMACS_MSS, User guide. 
EMACS_TUT, Tutorial file. 


EMACS1_doc to EMACS13_doc 
EMACSA_doc to EMACSF_doc is User 
Guide in _doc form 


Barclaycard: Visa: Access: Mastercard 


* Now in our EIGHTH successful year * 


Further details from the Membership Secretary 


Bill Newell 
213 Manor Road 
Benfleet 
Essex. SS7 4JD 
Tel (0268) 754 407 


Copying Fee: £1.00p (User Supplies Disks) or £2.00p (Pre-Copied Disks) 
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DIY 
TOOLKIT 


Simon Goodwin shows how you can turn QL task 
files into the keywords of your dreams. 


ask Commander turns Qdos task 
files into resident procedures. 
Tasks run instantly when you type 
your chosen commands. This is 
not just a great way to extend SuperBasic; 
it also shows how to write code that cre- 


| ates, loads and activates QL tasks. 


The program uses extended SuperBasic 
to add a header, giving a task a name, like 
a built-in or Toolkit command. The result- 
ant code remains a fully-fledged task, so 
you can launch and run it at the same time 
as Basic, perhaps passing channels or 
other parameter data for it to work on. 

All Task Commander files can run from 
rom, regardless of the compiler used to 
generate the task. The task code is copied 
into the transient program area before 
running. Tasks can be up to one megabyte 
in size; even the largest should start in 
under a second. 

As usual, the programs are tested on 
Sinclair JM roms, Minerva Qdos 1.64 and 
Argos 6.41. As far as | know, files should 
be totally compatible between rom ver- 
sions. 

| have often been asked for some way to 
turn compiled tasks into keywords. At last 
I've done it, and my systems are now 
rapidly filling with useful new keywords as 
aconsequence. | took my cue from Quanta 
boss Phil Borman, who kindly sent me a 
disk of his program 

MAKE_KEYWORD_BAS earlier this year. 
It uses Turbo Toolkit to add a short header 
to Turbo tasks. 

Resulting files can be loaded into memory 


| like any Toolkit command. The chosen 


keyword starts the task; for instance, you 
an type BLAST instead of EXEC_W 
FLP1_BLAST. 

Phil's routine works well, but has limita- 
tions. The calling task waits until the new 
task is finished; there is no way to pass 
parameters, and keyword names cannot 
exceed seven characters or Name Table 
corruption might result. 

The DIY Task Commander needs alittle 
more ram than Phil’s MAKE_KEYWORD. 
Itis safe with any length of name, launches 
tasks even more quickly, and allows full 
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Qdos task parameters. It can start a task 
from SuperBasic without stopping the in- 
terpreter. Just add a comma at the end of 
the command, to get the effect of EXC 
rather than EXEC_W. 

Parameter passing between tasks was 
not mentioned in the original 1984 Qdos 
manual, but itis documented in section 24 
of QJumps Supertoolkit 2 Guide. The 
standard method passes any number of 
channels on the task’s stack, indicated by 
a count word followed by the correspond- 
ing number of long word channel identifi- 
ers. Itcan also pass a string of up to 32766 
bytes. 

This parameter-passing scheme allows 
pipes and filters, in the style of the Unix 
operating system. It is implemented by 
many QL compilers, including GST C, Pro 
Pascal, Qliberator and Turbo. 

For instance, QLib assigns channels to 
#0, #1, #3, #4 and so on; Turbo tasks as- 
sign channels in order downwards from 
#15. Compiled programs read the string 
parameter by refering to a pre-assigned 
name like ARGV, CMD$_ or 
OPTION_CMD§. Your compiler manuals 
should have details. 

Itappears that this scheme was intended 
from the start, as even the AH rom CJOB 
routine puts two zero words on the stack 
by default; these signify no channels and 
no characters. 

The first half of Listing one evaluates, 
checks and passes the parameters on to 
the task. It is important to validate them all 
before allocating memory for the task; we 
don’t want to waste time or memory if an 
error is inevitable. 

The parameters are simple: any number 
of open SuperBasic channel numbers, 
followed by an optional string. The last 
parameter is taken as a string unless it has 
a # prefix; thus you can coerce a string to 
a channel! number, and pass nothing but 
channels, or pass any number, coerced to 
a string. 

In five years DIY Toolkit has demon- 
strated many styles of QL parameter scan- 
ning, allowing options, defaults, and the 
full range of data-types; now I'm going to 


show you how to do it backwards! Listing 
one scans from rightto left. This is the easy 
way to pick up the comma and string 
parameter which may be at the end of the 
statement. Everything else must be chan- 
nels. 

This sequence means that the 
SuperBasic value-fetching routines put the 
parameters in the ideal order on the RI 
stack, so they can be copied en biocto the 
data area of the task before it is activated. 
There may be anything from zero to a 
dozen or more parameters; typically you 
might pass a short string and zero, one or 
two channels, like this: 


CHURN “flp1_help/flp2_report”, 
SPLICE #0,#3,"temp_merge” 


If no explicit channels are specified, the 
DIY code passes the identifier of the De- | 
fault SuperBasic channel #1. The task 
does not have to use this, but may find it 
convenient. The DIY Toolkit USE key- 
word, from February 1988 and Volume C, 
can make this the default channel in the 
compiled task, too; just add USE 0 for Qlib 
or USE 15 for Turbo. 

The identifier of channel #1 upsets Psion 
Xchange, which does not expect to be 
passed any channels, and gives a bad 
parameter error otherwise. To fix this, 
change the first and last numbers in line 
870 of Listing two; replace 26696 with 
28232, and change 26122 into 24586 at 
the end of the line. This swaps BNE.S for 
BRA.S, so that #1 is not passed unless it 
is an explicit parameter. 

Remember that Qdos cannot allow one 
task to use a channel while another is 
waiting for data from the same channel. It 
is unwise to pass SuperBasic windows 
#0,#1 or #2 to tasks if-you intend to use the 
trailing comma to allow SuperBasic to 
carry on; output may be delayed or mud- 
dled. Programmers can check if a channel 
is busy by calling CHBASE, from DIY 
Toolkit, Volume Q. 

The machine code in Listing one demon- 
strates some tricky parameter handling, 
and shows how tasks are created and 
activated. Listing one is the assembler 
source of the code added to each task, 
tested with Devpac. 

You can type the code of Listing one into 
any QL assembler, and customise it for 
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DIY TOOLKIT 


your needs. Minor syntax variations mean 
you may need to suffix ‘A’ to a few address 
instructions, and omit ‘\w’ when reading 
word vectors. 

The Basic loader configures the code to 
suit each task, inserting the name and 
address of the Resident Procedure at 
PARAMS, patching the code and data 
sizes at MAKE_TASK, and tacking the 
code of the task onto the end, at 
TASK_CODE. 

Task Commander is very useful for small 
tasks, unless you have plenty of memory. 
Some program tasks modify their code 
after loading, so you need two copies in 
memory to run one. The master copy 
needs no data space, but about 280 bytes 
are required to process the name and 
parameters, and launch the task. 

QL tasks are small compared with 
memory capacity; most packages work in 
under 90 K, to suit the original QL, yet the 
long-established standard expansion of 
640 K ram has been bettered by the 896 K 
Trump Card. Now the standard is set by 
the two megabyte Gold Cards, multi- 
megabyte Thors and Qdos emulators for 
ST and Amiga 

Memory is cheap now, be it rom or ram. 
Task Commander is best if you have ram 
to spare, or itch to fill one of Quanta’s 192 
K Eprom expansion boards, or the 32 K 
rom sockets on CST’s RAM+. 

If all the tasks you use are re-entrant you 
could conserve memory by passing the 
address of TASK _CODE to MT.CJOB in 
A1, setting D2 to zero. This won't suit all 
compilers, but it saves making a copy of 
the code each time you want to run a task. 

The code labelled ADJUST_A3 prevents 
the parameters being copied if there is not 
enough room for them in the data space. 

Notice that the SUB.W DO,A3 instructions 
implicitly extend DO to a long-word value 
before subtracting it from A3. This is im- 
portant, as A3 invariably exceeds 32767. 
Two steps are used as DO is a count in 
words, and A3 addresses bytes. 

Assembler programmers soon learn the 
importance of keeping values in processor 
registers; this policy avoids repeated ac- 
cess to memory, and is vital for fast QL 
code. When there are many variables in 
use it may be difficult to assign registers. 

As usual, the innermost loop is the one to 
optimise first. Values therein are used 
most, so they must be the most accessi- 
ble. But which registers can be used? This 
is my approach. 

Aim to preserve useful register values for 
your code and the routines it calls. The 
rom uses AO for the Channel ID, D1 for the 
Task ID, D3 for timeout; other defaults 
were listed in July’s DIY Toolkit Volume T. 
There are 16 general-purpose registers, 
rather than two or three of early proces- 
sors; it is still easy to run out, especially 
when writing SuperBasic extensions. 

A7 and A6 are pre-defined, delimiting the 
subroutine stack and the start of Basic 
memory; A1, A3 and A5 point at param- 
eters, while AO and A2 get clobbered by 
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the CA.GT parameter routines, along with 
DO, D1, D2, D3, D4 and D6. The only spare 
registers are A4, the interpreters's pseudo- 
program counter, D5, and D7, which must 
sometimes be zeroed to avoid a maths 
bug in early Sinclair roms.Task Com- 
mander uses D5 and D7 to pass param- 
eter details to the loader. D5.L and D5.W 
are used for two distinct purposes. The 
sign of D5.L distinguishes EXEC from 
EXEC_W, while D5.W holds the length of 
the parameter string. 


When it gets tricky to allocate optimal 
register numbers, | find changes are kept 
to aminimum if | program using names like 
D8 and D9 as well as the ‘real’ registers DO 
to D7. These must be replaced before the 
program is assembled, but they help me 
see just what is needed, and where. 

Qdos saves and restores 68008 register 
values in the job header, immediately be- 
fore the code space, as it swaps from task 
to task. The instruction before ACTIVA- 
TOR sets JB.A7, the stored value of the 
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; QL WORLD DIY TOOLKIT - TASK COMMANDER ROUTINES 
Version @.9, Copyright July 1991 Simon N Goodwin 


BP. INIT expects a PROC name & address to be inserted at. PARAMS 


lea. 1 params, al 
move. W $110\w, a2 
imp (a2), 


setup 


params 
* 
not_open 


moveq #-6,d0 


bad_return rts 
* 


* TASK_CMD_NAME < # CHANNEL% . 
* 


tavkoud #0,d7 
#2,da5 
a3,a5 


make_task 


moveq 
moveq 
empa. 1] 
beq.s 
btst 

beq.s 
bset 

tet.b 
bne.s 
subq, 1 
ompa. 1 
beq.s 
tst.b 
bmi.s 


checked 
#31,d5 
-8(a5,a6.1) 
checked 

#8, ab 

a3,a5 
make_task 
-7(ad5,a6.1) 
get_chans 


checked 


* 


#4, -7(a5,06,1) 


Point at the details 
Fetch BP. INIT vector 
Add a resident procedure 


CHANNEL NOT OPEN error code 


{ PARAMETERS } Ce J 
Default channel count 
Default parameter string: 
Check parameter pointers 
Is there a trailing comma? 


Aha, it’s EXEC not EXEC_W 
Is there a data type too? 


Forget the last ’parameter' , 
Is there anything else? 


Does the last one have a # ? 
Positive if not, assume $ 


* Pick the string parameter off the end of the parameter list 


* 
get_string movea.1l 
lea.l -8(a5},a3 
movea.w $116\w, a2 
isr {a2} 
bne.s bad_return 
move. w 
bne.s 
addq.1 
find_chans compa. 1 
beq.s 
movea, I 
movea.1 a4,ad3 
movea.w $118\w, a2 
jsr (a2) 
bne.s bad_return 
move.w d3,d7 


a3,a4d 


find_chans 
#2, al 
a3,a4 
make_task 
a3,ad 


get_chans 


@(al,a6.1),d5 


Note location of parameters 
Focus on the last one 

Pick up CA.GTSTR vector 
Get string onto RI stack 


D5 is text length, @-32767 


Ignore nulls on the RI stack 
Is there anything else? 


Find the other parameters 
Recall pointer to first 
Fetoh CA.GTLIN vector 
Stack some long integers 


Update channel count 


Check each channel number before allocating task memory 


movea.] al,ad4 

check_chan move.w 
bmi.s 
mul 
add, 1 
emp, 1 
bge.s 
move. 1 
bmi.s 
move. | 
addq.1 
subd. w 


not_open 
#42,da 
48{a6),d8 
52(a8),de 
not_open 


not_open 


#4,al 
#1,4d3 


2(al,a6.1),da 


O(a6,d@.1),d8 
q@,@(al,a6.1) 


Keep RI stack base offset 
Get LOW word of parameter 1 


Each table entry is 4@ bytes 
Add channel base offset 
Check it is within the table 


Pick up the Qdos channel ID 
Store ID in place of #number 


Advance to next parameter 
Process all in turn 
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coat ha a 


stack pointer in the job header. The de- 
fault value set by MT.CJOB points at two 
zero words at the end of the data space; 
we need to move A7 down to address the 
parameters. 

The main Task Commander program is 
written in SuperBasic. A version based on 
SuperToolkit extensions appears in List- 
ing two. It merges the task with the DIY 
set-up code, adding the chosen command 
name. ltuses common Toolkitcommands, 
and can easily be converted; | have ver- 
sions that use DIY Toolkit, Turbo Toolkit 
and SuperToolkit commands. 

All three versions — plus documentation, 
examples and assembler source — have 
been added to the File Tools disk, Volume 
F of DIY Toolkit. Send £7 for the complete 
volume, which includes the Customkit 
toolkit file combiner, and a utility to create 
eprom headers. make payment out to DIY 
Toolkit (not to CGH Services), Cwm 
Gwen Hall, Pencader, Dyfed, Cymru 
SA39 9HA, or phone Richard on (0559) 
384574 1 pm- 9pm. 

There are now 17 volumes. Each costs 
£3 plus £4 per order to cover disks, post 
and processing. Please send one format- 
ted cartridge per volume if you need the 
files on microdrive. 

Listing Two uses a handful of Supertoolkit 
commands. Turbo Toolkit fans may prefer 
to replace FTEST and FOP_IN with 
DEVICE_STATUS; ALCHP and RECHP 
correspond to ALLOCATION and 
DEALLOCATE, while FDAT and FLEN 
mimic DATASPACE and POSITION at 
the end of the file. 

The DIY version uses GetHEAD, RE- 
SERVE and DISCARD extensions, sup- 
plied with Volume F along with the source 
for both other versions. The differences 
stem from variations in the commands 
and error- trapping facilities of each toolkit. 

The Turbo-Toolkit variant has the most 
comprehensive checks, but may stop if 
you run out of memory or space on your 
drive, or try to write to a ‘read only’ me- 
dium. 

Messages appear if the source file, con- 
taining the task, is absent, too long or an 
odd length. Odd length files crash EXEC. 
The code copies 16 bytes at atime, in up 
to 65536 steps, moving up to a megabyte 
at high speed. 

The task data space must be at least 16 
bytes; most tasks use far more, so that the 
message ‘data space too small’ probably 
means your source is not a task file at all. 
Parameters need at least eight bytes, and 
the fast copier may overrun by up to 16 
bytes when copying the task code; it’s 
faster that way. 

The destination file contains the new 
command code, which you can link in the 
usual way with LRESPR, LINKUP or 
RESPR, LBYTES and CALL. It needs 
slightly more space than the source file. 

The code loader is not the usual DIY 
Toolkit routine; it does not make a tempo- 
rary file, and stores decimal words rather 
than hex strings. DATASTORE is shorter, 
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faster and more reliable than the hex 
loader which Marcus Jeffrey bequeathed 
to this column in 1987. 

Each DATA line starts with a checksum, 
followed by a count of the number of 16 - 
bit values thereafter. The checks for each 
line detect extra or missing items and 
report the line number if a problem is 
found, so you need only correct that line. 
The exception is ‘DATA length error’, which 
indicates that the total of the ‘count’ values 
does not add up to the expected number 
of words. If you get this report, check the 
second value in each DATA line. 


DIY TOOLRIT ~ OO PORER Lead 


listing 1, 


All the data is numeric, as many people 
have number key-pads and | wish to avoid 
confusion between the letter B and the 
digit 8. The digit zero appears with a slash 
throughout, to distinguish it from letter O. 

Users with their own hex editor might 
prefer the hex representation. Itis easy for 
me to use either format, as | have software 
tools to create and check the DATA, so let 
me know what you prefer, care of QL 
World. 

You may need to comment out the RE- 
STORE at line 600 before compiling List- 
ing two. It is only needed when you first 


4 


page i oat 


* D7.W is No. of channels: D5.W is text length; DS5.L<@ for EXEC 
* 


make_task move.1 
move. 1 
moveg 
suba. 1 
moveq 
trap 
tet. 1 
bne.s 
lea. 1 
lea.l 


return_err 
8(a@,d2.1),a4 


code into the task area; 


#4,d2 

a@,al 
task_code, a2 
{a2)4+, (al)+ 
(a2}+, (al)+ 
(a2)+, (ald+ 
{a2}+, (ald+ 
d2, copy_code 


copy_code 


-8(a4,d3.1),a3 


Data space - to be patched 
Code space - to be patched 
Owner is this task 

Al is @; put task in TRNSP 
MT. CJOB trap key 

Create a task 

Did that work? 


Ad -> start of data space +8 
A3 points past end of dspace 


ignore slight over-runs 
Divide by 16 (roughly) 

Copy pointer to code space 
Find the code 

Repetition improves speed 
Move 16 bytes per DBRA step 


Copy up to 1 Megabyte, fast 


Parameters from RI to JB.SP. counting in 16 bit words 


d7,da@ 
d@,d@ 

ds 

string 
-{a3) 

ad just _a3 
#3,da5 
#1,d5 
d5,dae 

dd, a3 

d®, a3 
a4,a3 
activator 
a3, ad 
$58{a6), al 
copy_loop 


move.w 


no_string 


string 


ad just_a3 


copy_pars 
#2,a1 

copy_loop d@, copy_pars 

* 

* If CHANS=9, 

x 

chan_check tst.w a7 

bne. s stack_ok 

moveq #1,d7 

movea.1 48({a6), a2 

move. 1 

move. w 

move. } 


stack_ok d7,~(a4d) 
a4,-12(a®) 
. 4 

* Activate the task 

pd 
activator moved 
moveg 
tst.1 
bpl.s 
moveq 
moveq 
trap 
return_err rts 

* 


task cede end 


time_set 


stack 1.W and the ID from #1, 


40{a6,a2.1).-(a4) 


Number of channel ID words 
Check string length 


Stack a null length 


Include length + an odd byte 
D5 := string size in words 
D@ := stack words required 
Move A3 down to make room 
B® is in words, A3 is bytes 
Ensure room for parameters 
Pass nowt if they won’t fit 
Save bottom address 

Recall the BY,RIP offset 
Copy nothing if D@=0 


@lal,aB.1), fad)+ 


Advance up the RI stack 


else stack CHANS,W 
Check channel count 


Pass default, ID of #1 

A2 is offset to BY. CHBAS 
Presume that #1 exists 
Stack the channel count 
Set JB.A7 in task header 


Default priority (@-255) 
Timeouts @ = EXEC, -1 = WAIT 
Did command end with a comma? 
If not, timeout is -1, wait 
EXEC; no need to wait 

MT. ACTIV trap key 


Return error code (if any) 


Task code follows here 
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run the program to check the data, and 
Turbo or Supercharge object to the vari- 
able parameter. Once the data has been 
checked all you needis a single RESTORE 
at the start of the program. 

After just a few weeks | find the Task 


JUELEI? » UClUBER io¢k - listing 2, 


REMark Program to convert any Task 
REMark SuperTOOLKIT 2 version 
maxcode=2°28 :REMark DIY fast 
WINDOW 440, 15@,36,3@ : BORDER 2,0,7 : 
PAPER 2 : INK 7,4 : CSIZE 2,1 : CLS 3 
PRINT "TASK COMMANDER OL file converter" 
PAPER 7 : INK 2: CSIZE 1,8: CLS 3 

PRINT " 
INK 4 3 


INPUT * 


PAPER @ 


Source file >* !source® 
INPUT ” Destination >* 'destin® 
INPUT " Keyword >? Tnames\\ 
IF names="" > PRINT * Huh?" 7 

#lag=FOP_IN(sourcet) 

IF flagt® = 
#ile_lLength=FLEN(@fl ag?) 
4ile_data = FDAT(#flag? 
CLOSE Wflag 


sToP 


IF #ile_length>maxcode OR 2#INT(#ile_length/2)<>tile_length 
PRINT source$!"has odd or excessive size" : 


END IF 

IF file_datacisé 
buf fer=ALCHP (#ile_length+26@+LEN (name$} } 
LET b=buffer = 
offset=G+NLX-(NLY && 1) 
POKE_W b, (NLZ+8) DIV @ : 
FOR i=5 TO NL%+4 : 
beb+offset : POKE LL b,@ = 
FOR lnum=760 TO B9@ STEF 16 : 
IF baset+254< ob : RECHF buffer : 
POKE_L bawe+124,file data + 


POKE _W b+4,0 : 


PRINT " 


flag=FTEST (destin®) : 
IF flag=®8 


paae 1 ot 2 


PAPER @ : 


Written by Phil Borman & Simon N Goodwin. "\\ 


PRINT ° Error reading’ ‘sources t REPORT #1,.flag = 


+ PRINT 'source$! "data space too small" : 
: NLZ=LEN (names) 
DATASTORE 748 :REMark Store BP.INIT code 
tREMark Find the PROC code 
POKE_W b+2,offset+a@ : POKE b+4,NL% 
POKE i+b,CODE (name#(i-4)) && ~33 

beb+s : 
DATASTORE Inum 
DATA length error!" = 
POKE | base+138,file_length 
LEYTES source$,b :REMark Load task to end of code 
size=file_length+b—buf fer 


Commander is indispensable. The com- 
piled task, TASCOM, is itself a resident 
command on my QL and Thor; every new 
task is a candidate for installation. | am 
grateful to Phil Borman for sending me 
down this track. 


328 
S38 
548 
55@ END IF 

56@ RECHP buffer : 
57@ : 


ELSE 


into a Resident Procedure 
1.4, with full parameter passing 
load limits taske to 1 Megabyte 


cLs 


PRINT * Error writing’ !destin® : 


STOP 


The scope for new DIY Toolkit extensions 
seems to be narrowing, and| welcome new 
directions. Ideal topics involve short, origi- 
nal machine - code routines which can be 
used as ‘building blocks’ in other programs. 
Please send your suggestions to me. 


PRINT \\name$! "keyword code has been created in"'deatin® 


REPORT #1,flag 


58@ DEFine PROCedure DATASTORE (lined) 


598 LOCal i, x, words%, key%, checksum% 
460@ RESTORE line% :REMark Interpreters only (initial checking) 


618 keyZ=3 = 
638 
648 
458 
668 END FOR i 
&76 
688 
696 END IF 

788 b=b + words% # 2 
718 
728 = 


READ x : 


sior 


READ checksumi, 
628 FOR i=@ TO words% * 2 -2 STEP 2 
POKE_W it+tb,x* 

IF «>32767 THEN x=x-65536 
key#=keyh “* » 7 


IF key%i« >checksumZ 
PRINT “Error in DATA line”!line% : 


words% 


1 


RECHP buffer : STOP 


END DEFine DATASTORE 


73@ REMark BASIC Initialisation code 


740 
STOP 

768 DATA 
STOP 778 DATA 
798 DATA 
868 DATA 
818 DATA 
820 DATA 
B38 DATA 
848 DATA 
858 DATA 
86a DATA 
878 DATA 
888 DATA 
B98 DATA 


base=b 


STOP 


PRINT destin#! "already exists — Delete (¥/N) 7 "4 


k@=INKEYS(W1,-1) : PRINT k® 
IF k®=="y? THEN DELETE destin® : 
END IF 
IF flag=-7 


Sid SBYTES destin#,buftfer,size 


flag=-7 = 


ELSE flag=-8 


( (END) ) 


DATA 14493,5, 17402, 8, 13432, 272, 20178 

758 REMark Resident procedure code 

1777, 9, 28922, 20885, 32256, 31232, 49075, 264786, 2101, 4, 59641 
9738, 9, 26384, 2245, 31, 18997, 57642, 26118, 20877, 48075, 26454 

786 DATA 88@3,9, 18997,594641, 27422, 16315, 18413, 65528, 13432, 278, 20114 
21657,9, 26314, 14897, 59392, 26114, 21441, 47563, 26422, 18827, 9804 
-18292, 7, 13432, 286, 20114, 26290, 15875, 18313, 12337, 59394, 27558 
-28691, 10, 49404, 49,53422, 48, 45230, 52, 27800, 8244, 2046, 27538 
—31625, 11, 9088, 59392, 22645, 21515, 26332, 8788, 9788, 9,8,92746,8 
~28043,9,2, 27439, 37833, 28673, 20833, 19872, 26219, 18928, 10248 
—39B9, 19, 18428, 14584, 59530, 8776, 17914, 94, 8922, 8922, 8922, B922 
16476, 8, 20938, 65526, 122975, 53312, 19013, 261145, 169795, 24582 
=17263, %, 22685, 57933, 53317, 38592, 38592, 47952, 25874, 14315,8814 
26696, 9, 88, 24582, 14965, 59392, 21441, 20934, 45528, 19915, 26122 
184895, 9, 32257, 7326, 48, 19558, 43048, 14599, 8524,465524, 29712 
20555, 7, 3463, 19077, 27138, 30208, 2B6B2, 26033, 20085 
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DBQL 


In the fourth part of his relational 
database, Tom Ashcroft implements 
multiple file opening. 


1000 start 
1010 REMark ****#44¢04 004462040444 %% START 

1020 DEFine PROCedure start 

1030 MODE 4 

1040 OPEN #3,serl 

1050 OPEN #4,con_480x30a10x0 

1060 WINDOW 480,206,10,30 

1070 WINDOW#0,480,20,10,236 

1080 nemo=1:chan=1:alias=1;:databases=0:lprint=0 

1090 ann=l:afielde=1:achars=1:adeleted=0:aindices=0:ac=l:aresave=0: 
aoldfile=0:apac=0:af$="":aactive=l:aselected=0 

1100 bnn=1:bfields=1;bchars=1:bdeleted=0: bindices=0:be=1; bresave>0; 
boldfile=0:bpac=0:bf$="":bactiver1:bselected=0 

1110 cnn*l:icfields=1:cchara=1:cdeleted=0:cindices=0:cc=l:cresave=0: 
coldfile=0:cpac=0;cf$="";cactive=1icselected=0 

1120 PAPER O:PAPER #0,0:PAPER#4,0:1NK 7:INK #0,7:TNK#4,4:CLS:CLS#0 
1130 menu 

1140 END DEFine start 

1150 REMark #3 ska REESE OEE ER MENU 

1160 DEFine PROCedure menu 

1170 CLS#4 

1160 PRINT#4,"CReate OPen ENter Goto Back Next FInd 
MOre LOokup AMend PRinter DELete SElect DEselect List 
USE INdex PAck QUIT” 

}1190 IF lprint THEN PAPER#4,4:INK#4,7:PRINT#4," Is the printer ready? 
";PAPER#4 , 0: INK#4,4 

1200 END DEPine menu 

1210 REMark **+44*448 444 kKKEKAKEKKERK ENTER 

1220 DEFine PROCedure en 

1230 REPeat entrygroup 

1240 SELect ON alias 

1250 =lrenter at,ann,afields,aresave,achars,aindices,andx$, aactive 
1260 sZ:enter b$,bnn,bfields,bresave, bchars,bindices,bndx$, bactive 
1270 =Ji:enter c$,cnn,cfields,cresave,cchars,cindices,cndx$, cactive 
1280 END SELect 

1290 ssave:lload 

1300 TF q$="©" THEN EXIT entrygroup 

1310 END REPeat entrygroup 

1320 CLSimenu 

1430 END DEFine en 

1340 DEFine PROCedure 

enter(x$,nn,fields,resave,chars, indices,ndx$,active) 

1950 GCLS:CLS#4: resaves=l 

1360 PRINT#4,” Type information field by field Key ENTER at the 
end of each field"\" Shift/ESC to quit” 
1470 REPeat entryloop 

1380) nmn=nn+1:CLS:PRINT"Record no “inn 

1390 FOR j=l TO fields STEP 19 

1400 FOR ksj TO j+18 

1410 IF k>fields THEN EXIT k 

1420 PRINT x$(0,k,4 TO LEN(x$(0,k)});TO 10;";" 

1430 END FOR k 

1440 FOR k=j TO j+18 

450 IF k>fields THEN EXIT k 

460 AT (k-3)41,12; 

1470 IF x$(0,k,3)="N" THEN 


480 gt=intake$:1LF q¢$="" THEN q$="0" 

490 ELSE 

nh sod IF x$(0,k,3)="D" THEN 

1510 qa$echeckdate$:IF q$="" THEN q$="000000" 
1520 q$=date_rev$(q$) 

1530 ELSE 

1540 INPUT q$ 

1550 END IF :END IF 

1560 IF q$="©" THEN nnenn-1:EXIT entryloop 
1570 x$(nn,k)=q$ 


1580 END FOR k 
1585 AT 1,0:CLS 2:CLS 3 
1590 END FOR } 

1600 x$(nn,O)}=" " 
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he ability to open more than one file 

simultaneously is a great step for- 

ward in the versatility of adatabase 

system. It makes it possible to take 
information from one file to enter in an- 
other, or to combine with data from another 
file or files to form a composite report. 
Again, two or more files can be linked by a 
common field so that each contains infor- 
mation about one set of relationships and 
can be related to the other. For example, a 
car hire company might have one database 
containing information about customers 
such as name, address, date and duration 
of hire, method of payment, previous hirings 
etc., and a second database containing 
information about the fleet such as make, 
model, engine capacity, date of purchase, 
date of next service etc. These two 
databases might have a field, such as a 
‘car registration number’, which is com- 
mon to both. One file contains everything 
relating to the customer and the other 
everything relating to the car, linked by the 
common field, hence the name relational 
database. To use suchasystem it must be 
possible to manipulate and move between 
databases with ease. 


Two ways 


Turning to DBQL, there are two possible 
ways of implementing multiple files. The 
easiest is to create A$ as a multidimen- 
sional array. DIM a$ (5,10,15,20) would 
provide for five arrays, each with 10 records 
consisting of 15 fields, each 20 characters 
in length. The drawback to this system is 
that all the arrays are automatically dimen- 
sioned to the same size and cannot be 
varied, and the size would obviously have 
to accommodate the largest number of 
records, fields and characters of any of the 
databases to be loaded, irrespective of the 
needs of the smaller files. If we had a large 
file of a thousand records of 20 fields and 
asmalllook-up table with 10 records of two 
fields, both would have to be held in iden- 
tically dimensioned arrays, with most of 
the second array consisting of empty 
strings, and a great waste of memory. It 
would always be necessary to load the 
largest file first, to ensure the arrays are 
made large enough. 

The alternative approach is to have a 
separate array for each database so that 
each can be dimensioned exactly to the | 
right size. This approach is the one used in 
commercial database systems and is the 
one we will use in DBQL. Each array will 
have a different name — a$, b$, ch .. . etc 
— and there will have to be a selection 
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mechanism to call the array which is to be 610 update_index 
in use atany one time. Superbasic has the 1620 IF nn=DIMN(x$)THEN PRINT"Saving to microdrive. Please wait.":EXIT 
. : entryloo 
SELect ON .. . End SELect structure for | 1630 END REPeat entryloop 
this purpose. Incommercial programs each 1640 END DEFine enter 
i lly Given an ‘alias’ name 1650 REMark ****4#*#8¢44¢4404244442% SEARCH 
aeceaprariee nn 2 © dand which i 1660 DEFine PROCedure fi 
y which it can be addressed and which is 1870 c=0:found=0:CLS 
different from its file name. Superbasic 1680 INPUT\"Enter item for search ";s8$ 


can only SELect on numbers, unfortu- 1690 SELect ON alias 


nately, so each of our files will be known by ne or tehaee oF ber neetie i 


a number and this will be stored in the 1720 =3:cc20:more c$,cnn,cfields,cc 
variable alias. 1730 END SELect 
We needto arrange the program sothat, | 1740 END DEFine fi 


¥ 1750 REMark **#***%4e*84*%4* CONTINUE SEARCH 
though several different files are held in 1780 DEFine PROCedure mo 


memory, the program behaves as if, atany 1770 SELect ON alias 


one moment, only one file is present and 1780 =l:more a$,ann,afields,ac 
> . ; 1790 =2:more b$,bnn,bfields,be 
the others remain unseen. Each file will 1800 #3:more c$,cnn,cfields,cc 


have its associated variables such as nn, 1810 END SELect 


fields, chars, etc and each can have as- can pial ak Ss A TET sil 
F j ; Bae ; ar 
sociated index files ie tg in mind 1840 DEFine PROCedure more(x$¢,nn,fields,c) 
hee the ss ay L oe ib py llega d>nn THEN PRINT\ TO 9;:PAPER 2:PRINT” end of file “:PAPER 
or an array called a$ how can they wor :RETurn 


9 1860 instr_sr 
for b$ or c$? 1870 IF c=nn+l THEN :IF found THEN :PRINT "NO FURTHER RECORDS 


: ; FOUND":ELSE :PRINT\"NOT FOUND": END IF :RETurn :END IF 

Alias and variables 1880 display x$,fields,c 

1890 END DEFine more 
, . . 1900 REMark *4##*44&e44 4444424424422 TNSTR SR 
The solution to these problems is simple 1910 DEFine PROCedure instr sr = 
in principle. Each array will have its own 1920 c=nn+1 
setof variables, so that a$ has ann, afields, 1930 FOR record=d TO nn 
achars etc and b$ jas bnn, bfields, bchars en. SOR Eee Lae eae 
J eT 1950 IF s$ INSTR x$(record,fld) AND x$(record,0,2)<>"S" THEN 

and so on. The number of the file in use is c=record: found=1:EXIT record 
held in alias and the various procedures 1960 END FOR fld 


. j 1970 END FOR record 
will each have a new introductory proce- 1980 END DEFine instr_sr 


dure to pass the appropriate variables to 1990 REMark *#**%¢4%0e 4440444448248 DELETE 


the procedure proper (see the QL User ie eb per yey del 
i rT 1 . ec alias 
Guide on passing variables). As an exam 2020 =l:a$(ac,0,1)="D": adeleted=adeleted+1 
ple let’s look at the changes to the proce- 2030 =2:b$(bc,0,1)="D": bdeleted=bdeletedtl 
dure AM (line 2430 in the listing). Please poe fe niee seated )="D" :edeleted=cdeleted+1 
. D SELect 

note that the program has been renum 2060 PRINT\ “This record is marked for deletion" 
bered. 2070 END DEFine del 

Calling AM from the keyboard now en- 2080 REMark *kk#exeeeAREREREKKEESE PRINTER 


ters the SELect structure and if the value 2090 DEFine PROCedure pr 


2 Y 2100 lprint=1-lLprint:menu 
of alias is, say, 1 then the new procedure 2110 END DEFine pr 


AMEND is called and has passed to it the 2120 REMark *¥*8*#SKEKKKAKKERERAKERAKE GOTO 

array a$ and all the associated variables 2130 DEFine PROCedure g(x) 

1 toe“ lao reel 2180 rey aeeaeie aoe THEN ac=ann:END IF :displ a$,afield 
2thenb$andits variables wouldbepassed. | 216 — <2:bc=x:IF be>bnn THEN be=cnn:END IF :display b$ bfielda,be 
These are the variables that willbe needed 2170 23:cc=x:IF cc>cenn THEN cc=cnn:END IF :display c$,cfields,cc 
by AMEND and by the other procedures 2180 END SELect 

which will be called by AMEND as it runs. 2190 END DEFine g 


AMEND itself starts at 2500 and consists te ae pce phaiad amaaeiieii NEXT 
of the lines which previously made up the 2220 SELect ON alias 

old procedure AM in the flat-file version of 2230 =l:nxt ac,ann:display a$,afields,ac 
DBAQL. It lists as formal variables in 2450, 2240 =2inxt be,bnnidisplay b$,bfields,bc 


f H 2250 z3:nxt cc,cnn:display c$,cfields,cc 
ren yin listed . a same be ihe edna ah Recact 
values of some of these variables, o 2270 END DEFine n 
course, are changed as the procedure 2280 DEFine PROCedure nxt(c,nn) 


runs but the new values are automatically 2290 c=c+1:IF c>nn THEN PRINT\ TO 30;"end of file":PAUSE 60:c=nn 


2300 END DEFine nxt 
passed back to the actual parameter 2310 REMark *#**¢ ks deRKKRRRERERRER BACK 


variables. _ 2320 DEFine PROCedure b 

You will see in the listing one that all of 2330 SELect ON alias 
the old procedures have been changed in 2340 =1:back ac,ann:display at,afields,ac 
4 similar way except for those that are 2350 *2:back bc,bnn:display b$,bfields,bc 


always called by another procedure. This Lai weet Sees sata ee 


is because variables passed to a proce- 2380 END DEFine b 
dure are automatically passed on to any 2390 DEFine PROCedure back(c,nn) 
| other procedure called by the first one. dak aged “ie ie PRINT\ TO 30;"start of file":PAUSE 50:cz#1 
ne ac 
The short procedures DEL andG are too | 2420 Remark #k#eRseeEEKEKEKEKKKKEEA AMEND 
simple to need subsidiary procedures and 2430 DEFine PROCedure am 
operate with the actual parameter vari- 2440 SELect ON alias 
ables only. Provision is made for up to 2450 =l:amend a$,ann,afields,achars,aresave,adeleted,ac, 
hree files to be held at once ee ares a 
f three file : ath 2460 =2:amend b$,bnn,bfields,bchars, bresave, bdeleted,bc, 
Procedure LLOAD is especially com- bindices, bndx$ 


ee 
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2470 =3:amend c$,cnn,cfields,cchars,cresave,cdeleted,cc, 
cindices,cndx$ 
2480 END SELect 
2490 END DEFine am 
2500 DEFine PROCedure 
amend({x$,nn,fielda,chars,resave,deleted,c,indices,ndx$) 
CLS: CLS#4 
PRINT#4," 
PRINT#4," 
DIM hold$(fields,chars)} 
resave=l:reenter=0 
FOR fld=l1 TO fields 
PRINT x$(0,fld,4 TO LEN(x$(0,fld))});TO 11;x$(0,f1d,3);": 
"“&x$(c,fld)} 
2580 PRINT TO 11; 
2690 IF x$(0,fld,3)="N" THEN 
2600 qt=intake$ 


2610 ELSE 
2620 IF x$(0,fld,3)="D" THEN 
2630 a$=checkdate$s 
2635 qt=date_rev$({q$) 
2640 ELSE 
2650 INPUT a$ . 
2660 END IF :END IF 
2670 IF q$="" THEN :hold$(fld)=x$(c,fld):ELSE 
thold$(fld)=q$: reenter=reenter+(x$(0,fld,1)="I"}:END IF 
2680 END FOR fld 
2690 IF reenter THEN 
2700 x$(c,0)="D" ;deletedzdeleted+1:nn=nn+tl 
2710 FOR j=1 TO fields:x$(nn,j)=hold$({j) 
2720 update_index 
2730 ELSE 
2740 FOR j=l TO fielda:x$(c,j)=hold${j) 
2750 END IF 
2760 IF reenter THEN c=nn 
2770 display x$,fields,c:menu 
2780 IF nn=DIMN(x$) THEN PRINT"Saving file to microdrive. Please 
wait.":esave:lload 
2790 END DEFine amend 
2800 REMark *##¥4#eRKKKEEAREKAEAARREAK QUIT 
2810 DEFine PROCedure quit 
2820 FOR j=1 TO databases 
2830 alias=j 
2840 Baave 
2850 END FOR j 
2860 ending 
2870 END DEFine quit 
2880 REMark **# 2909444 e ROR ERKKEEEAE SAVE 
2890 DEFine PROCedure ssave 
2900 SELect ON alias 
2910 =lisaver a$,ann,afields,achars,adeleted,apac,aoldfile,af$, 
aresave,aindices,andx$ 
2920 =2:saver b$,bnn,bfields,bchars,bdeleted,bpac,boldfile,bf$, 
bresave, bindices, bndx$ 
2930 =3isaver c$,cnn;cfields,cchars,cdeleted,cpac,coldfile,cf$, 
cresave ,cindices,cndx$ 
2940 END SELect 
2950 END DEFine ssave 
2960 DEFine PROCedure saver(x$,nn,fields,chars,deleted,pac,oldfile,f$ 
resave, indices,ndx$ ) 
2970 IF NOT resave THEN RETurn 
2980 dbsave: indexsave: resave=0 
2990 END DEFine saver 
3000 DEFine PROCedure dbsave 
3010 IF oldfile THEN COPY "mdv1_"&f$ TO "mdv1_“&f$&"_temp”:DELETE 
“mdv1_"afs 
3020 OPEN_NEW #6, “mdv1_"af$ 
3030 PRINT#6,nn-(deleted*{pac#1)):PRINT#6,fields:PRINT#6,chars: 
PRINT#6 ,deleted*(1-pac}:PRINT#6,indices 
FOR record=0 TO nn 
IF x${record,0,1)="D" AND pac=1 THEN NEXT record 
FOR fld=0 TO fields 
PRINT#6 ,x€(record,fld) 
END FOR fld:END FOR record 
CLOSE#6 
DELETE “mdv1_"&f£$&"_temp” 
0 END DEFine dbsave 
3120 DEFine PROCedure indexsave 
3130 FOR j=1 TO fields 
IF x$(0,j,1)="I" THEN 
IF NOT pac THEN COPY “mdvl_"&x$(0,j,4 TO LEN(x$(0,j)))&"_ind" 
O "mdvl_"&x$(0,j,4 TO LEN(x$(0,j)))&"_ind temp” 
3160 DELETE “mdvi_"&x$(0,j,4 TO LEN(x$(0,j)))}&"_ind" 
IF pac THEN NEXT j 
OPEN_NEW#6, "mdv1_"&x$(0,j,4 TO LEN(x$(0,j)))&"_ind” 
FOR k=0 TO nn:PRINT#6, ndx$(x$(0,j,2),k,1):PRINT#6, 
dx$(x#(0,j,2),k,2) 
3200 CLOSE#6 
DELETE "mdvl_"&x$(0,j,4 TO LEN(x$(0,j))})a"_ind_ temp" 
END IF 
END FOR j 
3240 END DEFine indexsave 


ENTER leaves item unchanged " 
To change an item, type new version 
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plicated because of the fact that an array 
can only be dimensioned as an actual 
variable and not in the guise of a formal 


parameter. This means thatLLOAD has to } 


be split into two procedures. SET_ARRAY 
opens the file and reads in the numerical 
variables and the program then returns to 
the calling line to have the main array 
dimensioned before passing the variables 
on to INLOAD, which loads the data into 
the array. lf any index files are present the 
appropriate ndx$ has to be dimensioned 
at the same time as the database array so 
the value of indices has to be known at this 
point. Indices is therefore now saved in the 
file with the other variables, although the 
older lines which derived indices from the 
field names have been left as a check. To 
make database files compatible with both 
versions of DBQL it is recommended that 
previous versions be modified to save 
indices to microdrive. 

The procedure START has been 
changed to initialise the new database 
variables so that they can be used as 
passing parameters. Two new global vari- 
ables have also been added — alias, which 
has been explained, and databases, which 
stores the number of files currently in 
memory. It begins with a value of 0 and is 
incremented whenever a database is 
loaded or created. Alias begins with a 
value of 1 and to load the first file call OP 
in the usual way. To load another file, set 
alias to another value, up to three, and call 
OP again. The value of alias is changed by 
anew procedure USE, passing the required 
value from the keyboard as USE 2 or USE 
3 etc. another way is just to type ‘alias=x’ 
<ENTERs, where x is the new value. If you 
wish to replace one file with another, set 
alias to the required number and OPen the 
new file, which will automatically replace 
the existing one. 

As listed, the maximum number of files 
that can be loaded at once is three. Com- 
mercial databases usually allow more files 
eg dBase |V takes up to 10 and some 
users need still more. The number of files 
in DBQL can be increased quite easily and 
the only real limitis the amount of memory 
available. To add a fourth file, which would 
be called d§, it would be necessary to add 
anew line to each of the SElect structures: 


=4: [procedure name] d$,dnn,dfields. . . 
etc, 


and list all the d- variables correspond- 
ing to the a-, b- and c- variables in the 
existing lines. A new line would similarly 
be required in START to initialise the new 
variables, and the maximum value allowed 
by USE should be increased. This process 
could be repeated as often as desired, 
using the next letter of the alphabet each 
time as a name for the new array. 

The program has been completely re- 
numbered to accommodate the newlines. 
Line numbers in DBQL are only needed for 
the programmer to find the way around 
and are not used by the program itself. A 
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number of other additions have been made. 

SELEKT has been altered to enable 
‘greater than ' and ‘less than’ criteria to be 
used in selections. The new SELEKT, after 
printing instructions in #4 and displaying 
the list of field numbers and names, re- 
quests an entry in the form of an unbroken 
string consisting of field number, operator 
and selection item. The string is then ana- 
lysed by lines 4270 to 4340. The loop in 
4270 to 4290 examines each character in 
the string until it finds a non-numeric char- 
acter. lf the first character is non-numeric 
then the string has been incorrectly entered 
and 4300 prints an error message and 
loops back to the input. 

Line 4310 takes the characters before the 
first non-numeric character to be the field 
number and assigns this to fldno. The non- 
numeric character itself is taken to be the 
operator and assigned to operator$, while 
the rest of the string is taken to be the 
selection item and assigned to selct$. Line 
4320 checks the validity of the operator and 
fieldnumber and if one of these is wrong the 
repeat loop returns to the input with an error 
message. 

If all is well here, the selection loop start- 
ing at 4370 is entered, after a numerical 
value has been obtained from the ASCII 
code of the operator character in 4350. The 
loop examines the specified field of each 
record in the database using a SELect 
structure to choose the appropriate operator 
and if a positive result is found it increments 
the counter variable selected. Otherwise a 
‘S' is attached to the end of field 0 of the 
record, which is a change from the previous 
arrangement (see below). At the end of the 
loop the number of records selected is 
displayed as before and the same options 
of displaying or saving the selected records 
are offered. 

The deselection procedure DES has also 
been changed. Experience has shown that 
itis often useful to be able to cancel only the 
last stage of a multiple selection to allow a 
new selection to be based on a previous 
one. For instance, a mail order firm, having 
selected the names of male customers 
aged under 30, say, might want to select 
those living in Birmingham and then those 
living in Brighton or Newcastle in turn, 
without having to cancel the whole selection 
and begin anew each time. This is done by 
adding an'‘S'’ to field 0 whenever a record is 
selected out, so that a record which has 
failed three selections would have SSS in 
its 0 field (after the first character which is 
reserved for 'D') while one which has only 
failed the last selection would only have 
one S. 

To go back to the state existing before the 
latest selection therefore, the last S has to 
be removed from each record containing 
Ss, and this option is now offered by 
DESLCT. Line 4710 offers the choice of 
complete cancellation as before by input- 
ting a C (upper or lower case) or of cancel- 
ling only the last selection by entering S. If 
C is entered, the loop in 4370 removes all 
Ss by setting field 0 in each record equal to 
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REMark *#4*#4¢## 44446824 %442444%44% OPEN 
DEFine PROCedure op 
INPUT “Enter file name: ";q$ 
SELect ON alias 
=lL:af$=q$:lload:legend af$,ann,aindices 
=2:bf$=q$:lload:legend bf$,bnn,bindices 
=3:cf$=q$:lload:legend cf$,cnn,cindices 
END SELect 
databases=databases+1-(databases=3) 
END DEFine op 
DEFine PROCedure lload 
SELect ON alias 
el:set_array af$,ann,afields,achars,adeleted,aindices: DIM 
a$(ann+10,afields,achara):DIM andx$(aindices,annt+10,2,achars):inload 
ja$,ann,afields,aindices,apac,andx$,aoldfile 
3360 s2:eset_array bf$,bnn,bfields,bchars, bdeleted,bindices:DIM 
b$(bnn+10,bfields,bchars):DIM bndx$(bindices,bnn+10,2,bchare):inload 
b$,bnn, bfields, bindices, bpac,bndx$,boldfile 
3390 s3:set_array cf$,cnn,cfields,cchars,cdeleted,cindices:DIM 
$({cnn+10,cfields,cchars):DIM cndx$(cindices,cnn+10,2,cchars):inload 
c$,cnn,cfields,cindices,cpac,cndx$,coldfile 
3400 END SELect 
3410 END DEFine lload 
3420 DEFine PROCedure legend(f$,nn, indices) 


IF indices THEN PRINT\ TO 13;indices;" index file(s)" 
END DEFine legend 
REMark **#4**4*#444€eHHKKKEEEKE SET ARRAY 
DEFine PROCedure set_array(f$,nn,fields,chars,deleted, indices) 
OPEN_IN #6,"mdv1_"&f$ 
INPUT#6 ,nn: INPUT#6, fields: INPUT#6,chars: INPUT#6,deleted: 
INPUT#6, indices 
END DEFine set_array 
REMark *##*444444244k4%8%4%%4%% TNLOAD 
DEFine PROCedure inload(x$,nn,fields,indices,pac,xndx$,oldfile) 
FOR record=0 TO nn 
FOR fld=0 TO fields 
INPUT#6,x$({record,fld) 
END FOR fld 
END FOR record 
CLOSE #6:oldfile=1 
IF pac THEN RETurn 
indices=0:FOR j=l TO fields:IF x$(0,j,1)="I" THEN 
indices=indices+1:x¢(0,j,2)=indices 
3610 IF NOT indices THEN RETurn 
3620 FOR j=l TO fields 
3630 IF x$(0,j,1)="I" THEN 
3640 OPEN_IN #6, "mdv1_"&x$(0,j,4 TO LEN(x$(0,j)))&"_ind” 
3650 FOR k=1 TO nn: INPUT#6, xndx$(x$(0,j,2),k,1}:INPUT#6, 
xndx$(x$(0,5,2),k,2) 
3660 CLOSE#6 
3670 - END IF 
3680 END FOR j 
3690 END DEFine inload 
REMark ¥***#*4424444444442442% CREATE 
DEFine PROCedure cr 
IF alias-databases<1 THEN alias=alias+1-(alias=3) 
CLS 
INPUT"Please enter file name: ";f$ 
x$="":fields=0 
CLS#4: PRINT#4,"Enter field names in order, up to 8 characters in 
length."\"Enter Shift/ESC to quit.” 
3770 PRINT" Field name Character, Number or Date" 
3780 REPeat fname 
3790 INPUT\ fieldst+1;" : "; fields; 
3800 IF field$="©" THEN EXIT fname 
3810 INPUT TO 28;type$;:type$=upper$(type${1)) 
3820 4 NOT type$ INSTR "CND" THEN INPUT" Invalid type. Only C,N or D 
i type 
IF LEN(field$)>8 THEN field$=field$(1 TO 8) 
field$=" "&type$&fields 
x$=x$&field$&",":fields=fields+1 
END REPeat fname 
INPUT\"How many characters in the longest field?"!chara 
IF chars<il THEN chare=11 
DIM z$(0,fielde,chara) § 
FOR j=1 TO fields 
slica="," INSTR x$:2$(0,j)=x${1 TO slice-1) 
IF slice<LEN(x$) THEN x$=x$(slice+1 TO) 
END FOR j 
nn=0;deleted=0: indices=0 
OPEN_NEW#6,“mdvl_"&f$ 
PRINT#6,nn:PRINT#6, fields: PRINT#6,chars: PRINT#6,deleted: 
PRINT#6, indices 
3970 FOR j=0 TO fields:PRINT#6,z2$(0,j} 
3980 CLOSE #6 
3990 databases=databaseat1-(databases=3) 
4000 CLS:CLS#0:INPUT\"The file ’"&f$e"’ 
now?(¥/N) ";4$ 
4010 IF g$=="Y¥" THEN 
4020 SELect ON alias 
4030 sliaf$=f$: lload:en 


is ready. Enter records 


DBQL 


qU4uU 
4050 
4060 
4070 
4075 
4080 
4090 
#100 
4110 


SZ: DI$=1$:lioad:ien 

23:ef$=f$:lloadien 

END SELect 
END IF 
CLS:menu 
END DEFine cr 
REMark *¥*8€* ee 448KeKKKKAREKEK ENDING 
DEFine PROCedure ending 
CLS:CLS#0;AT 10,33:PRINT"FILES CLOSED"\\ TO 27;"To use again, 


anter RUN.” 


4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


END DEFine ending 

REMark **€8 444444 42540644442%% SELECT 

DEFine PROCedure se 

SELect ON alias 
=l:selekt a$,ann,afields,aselected,ac 
=2:selekt b$,bnn,bfields, bselected,bc 
=3:selekt c$,cnn,cfielda,cselected,cc 

END SELect 

END DEFine se 

REMark ***#e44 4444424 44444244% SELEKT 

DEFine PROCedure selekt (x$,nn,fields,selected,c) 

AT#4,0,0:PRINT#4,"Enter field number, operator(=,< or >) and 


selection item as a continuous stringof characters e.g. 10=bingo 


4240 
4250 
4260 
4270 
4280 
4290 
4300 


CLS:FOR j=l TO fields:PRINT j,x$(0,j,4 TO LEN(x$(0,j))) 
REPeat selection 
INPUT q$ 
FOR j#1 TO LEN(q$} 

IF NOT (CODE(q$(j})<58 AND CODE(q$(j)})}>47)} THEN EXIT j 
END FOR j 


IF j=1 THEN PRINT "Invalid entry. Refer to instructions” :NEXT 


selection 


4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 


fldno$=q${1 TO j-1):fldno=fldno$:operator$=q$(j):selct$=q$({j+1 TO) 
IF operator$ INSTR "=<>" AND fldno$<= fields THEN EXIT selection 
PRINT"Invalid entry. Refer to instructions" 
END REPeat selection 
operator: CODE(operator$ } 
selected=0 
FOR j=1 TO nn 

SELect ON operator 

=61;IF selct$ INSTR x$(j,fldno) AND x$(j,0,2)<>"S" THEN 


selected=selected+1:ELSE :x$(j,0)=x$(j,0,1 TO LEN(x$(j,0}))&"S":END IF 


4400 


=60:IF x$(j,fldno)<selct$ AND x$(j,0,2)<>"S" THEN 


selectedsselected+1:ELSE :x${j,0)=x$(j,0,1 TO LEN(x$(j,0)))&"S":END IF 


4410 


=62:1F x$(Jj,fldno)>selct$ AND x$(j,0,2)<>"S" THEN 


selected=selected+1:ELSE :x$(j,0)=x$(j,0,1 TO LEN(x$(j,0)))&"S":END IF 


4420 
4430 
4440 
4450 
4460 
list 
4470 
4480 
4490 
4500 


END SELect 
END FOR j 
PRINT selected;” records selected" 
IF NOT selected THEN menu:RETurn 
INPUT"Enter S to save selected records to microdrive"\" 
them on screen"\"Press ENTER to return to menu “;q$ 
IF qg$="S" OR g$="e" THEN 
INPUT "Enter file name ";subfile$ 
OPEN_NEW#6, "mdvl1_"&subfile$ 
PRINT#6,selected: PRINT#6,fields: PRINT#6,chars: PRINT#6,0: 


PRINT#6,0 


4510 
4520 
4630 
4540 
4650 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 


4888 
4670 
4680 
4690 
4700 
4710 


FOR j=0 TO nn 
IF x$(j,0,2)=2"S" THEN NEXT j 
FOR k=0 TO fields: PRINT#6,x$( j,k) 
END FOR j:CLOSE#6 
END IF 
IF g$="1" OR q$="L" THEN 
CLS:FOR k=1 TO nn:IF x$(k,0,2)<>"S" THEN c=k:b_s_diaplay 
END IF 
menu 
END DEFine selekt 
REMark ¥**#***444244%44442424% DESELECT 
DEFine PROCedure des 
SELect ON alias 
=el:deslct a$,ann,aselected 
FF :Aapiat As chan oberdecsad 
END SELect 
END DEFine des 
REMark *#88 eS HR4AKEEKEEEREERAR DESLCT 
DEFine PROCedure deslct(x$, nn, selected) 


PRINT\ “Enter C to cance] all selections"\" S to step back 


one stage": INPUT opt$ 


4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 


:PRINT\ “Last selection cancelled"\selected;” 
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IF opt$="C" OR opt$="c" THEN 
FOR j=1 TO nn:x$(j,0)=x$(j,0,1) 
selected=0 
CLS:PRINT\"All selections cancelled" 
ELSE 
IF opt$="S" OR opt$="s" THEN 
selected=0 
FOR j=1 TO nn 
IF LEN(x$(j,0))>1 THEN x$(j,0)=x$(j,0,1 TO LEN(x$(j,0))-1) 
selected=selected+(LEN(x$(j,0)})=1) 
END FOR j 
IF selected=nn THEN PRINT\"All selections now cancelled":ELSE 
records now selected" 


4840 ELSE 

4850 PRINT\"Deselect abandoned"; 
4860 END IF : END IF i 
4870 END DEFine desict 

4880 REMark *teseeeeraeeee ca ensis 
4890 DEFine PROCedure li i 
4900 SELect OW alias i 
4910 _=l: show as ana. afiatdabl 
4920 “s2:show bS. brn, bfields,-l 
4930 a3:show c8$,cnn,cfieldse! 
4940 END SELect 

4950 END DEFine li 

4960 REMark **#eeesnnapecseucrmes 
4970 DEFine PROCedure show( x$,ni 
4980 IF NOT selected THEN PRINTNO 
4990 CLS:FOR k#l TO nn:IF x8(k.2) 
5000 END DEFine show 

5010 REMark *#*eeceeeeeeeeegenins 
5020 DEFine PROCedure displ avid: 
§030 IF chanel THEN CLS 

5040 PRINT"record “;c;:1F x8fod) 
:PRINT: PRINT: END IF 

$050. FOR fld#l TO fields 

5060 ' IF NQT nemo THEN PRINTIar 
piss “ ‘ 

5065 IF x8(0,fld,3)2"D" THENem 
date rev8(temp$):NEXT fld 

5070 PRIND¥chan,” “&xéic, fle 
5080 END FOR fld 

5090 IF lprint AND chan! THENan 
5100 chan=1 

5110 END DEFine display 

$120 : 

§)30 REMark *#*eteeedkan eee eewet | 
5140 DEFine PROCedure in 

$150 SELect ON alias 

5160 sl:index a$,afields,acia, 
aoldfile,af$ 

5170 #2:index bé,.bfields, bcs, 
boidfile,bfrs A 

5180 s3:index c8,cfieldn, ¢cin,: 
coldfile,cf$% 

$190 BND SELect 

$200 END DEFine in 

5210 DEFine PROCedure index(xtel 
deletedyoldfile,f$) 

§220 DIM ndx$(1,nn,2,chara):ace 
5230 IF NOT pac THEN 

5240 CLS:FOR j#i TO fields:NT 
$250 PRINT"Enter field numbi “ 
fldno THEN PRINT"Terminating” ‘ur 
5260 PRINT"Creating index fi” 
LEN(x8(0,fldno))})&" ind” 

5270 END IF 

5280 x$(0,fldno,1)#"I" 

§290 FOR kel TO nnindx$lactived 
§300 DIM comp$(2,chars) 

5310 FOR iteas2 TO nn 

§320 in_sort 

5330 END FOR item 

5340 indname$zx8(0,fidno,4 PTO Wa: 
5350 DELETE "mdvl, "&indnames 
5360 OPEN_NEW#S5,"“mdv1_"& indna 
3370 POR k=*1 TO nn: PRINT#S. ndxct. 
5380 CLOSE#S 

5390 tndicessindices+! 

§400 resave=!) 

5410 dbsave 

5420 END DEFine index 

5430 REMark *8*08 8900 RE Rt ERED 


5440 DEFine PROCedure in srrt 


5450 pritem 

5460 comp$(1)andx$lactiva.pics 
5470 ndx${active.0, 1] )®-ompt: n 
5480 REPeat compare 

5490 ° IF comp8{ 1 )>=ndx Si ut , | 
4300 
ndx$(active,p, 1 lendxSlact ive i 
$510 p=p-1 

5420 END REPeat compary 


$530 ndx8(active,p,1] }scomph nc 
5540 END DEFine in,sort 

5550 REMark ***ee0ae teat EKD RY 
5560 DEFine PROCedure lo \ 
5570 CLS: INPUT\"Please ante: i ts 
5580 SELect ON alias i 
4590 =l:b_eearch af. retbtin ge 
5600 a2:b. “search b$,bfielde 
§610 #3: b_search eb, cfhivion 
5620 END SELect i 
5630 END DEFine lo ; 
5640 DEFine PROCedure b_searci! 
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wre LIST 


jecbed, 
lectved, be 
lectheif.ine 


aoeeeaee SHOW 
fields,aelected.c} 
NO SELECTION HAS WEEN MADE: RETucn. 


HoO™S" THEN czk:h s display 
stew PTSPLAY 
fieldayed 
}iz"D" THEN PRINT" ¢ Do)": PRINT: ELSE 
en St. tld,a TO LEN(x$(0,fIdbo1; 70 


| 
} 


eaptexdic, f1d):PRINT#chan, 


masi:dikplay x&fielda.c 


INDEX FIRE 


4,ann,apac,aresave,naindices,adeleted, 
\bnn, bpac, bresave, bindices, bdeleted, 


cnn, cpac,creaave,cindices,cdeleted, 


relda ,chars,nn,pac,renave, indices, 
ve =} 


INT JenS(0,5,4 TO) 
rf idnozgetnumbers(0,fielda) 


Burn 
b“ix8tU,fldno,4 TO 


K\ise$ik,. fldnodindxS{active,k.2)ak 


BiaslO.fhdno}} Ia" ind” 


ts 5.5) seem ae nee 


# iN SORT 


rcompS( 2) andxSdactive,&- gt 
indx$tactive,0,2)=comps( 21 


Vowehete THEN EXIT compare 


t] ndxStactive.p, 2 btndx8lactive p-l,2) 


InaXSlachive p.2)scomps( 2) 
ANY SPARCH 

tw tee rors “isg 
WOKE AActivej;andx$,aindices 


aie vact oe, bndx§,bindices 
her -enaje pendehs ind leek 


‘Plields.nan,c,active,ndx$, indices}. 
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:IF NOT. 


sonfirm “\"“or enter another number: 


DBQL 


purine PROCedure lo 

CLS: INPUT\"Please enter item to look for: 

SELect ON alias 
=l:b_search at,afields,ann,ac,aactive,andxté,aindices 
=2:b_search b$,bfields,bnn,bc,bactive, bndx$,bindices 
=3:b_search c$,cfields,cnn,cc,cactive,cndx$,cindices 

END SELect 

END DEFine lo 

DEFine PROCedure b_search(x$,fielda,nn,c,active,ndx$, indices) 

FOR j=1 TO fields:IFf x$(0,3,1})="I" THEN PRINT x$(0,3,2),x$(0,3,4 

PRINT\"Current field for search is "j;active\"Preas ENTER to 

“;: qt=getnumber$(0,indices}: IF 


as<>"0" THEN active=q$ 


5670 

afld 

5680 

6690 
6700 
5710 
5720 
6730 
5740 
6750 
5760 
5770 
5780 
5790 
5800 


FOR sfld= 1 TO fields:IF x#{0,efld,1 TO 2)="I"&active THEN EXIT 


e=bin_s(nn,s$,ndx$) 
c2ndx$(active,z,2) 

IF x$(c,sfld,1 TO LEN(e$))}<>s$ THEN PRINT\"NOT FOUND 
CLS 

updown ndx$,z 

END DEFine b_search 

REMark ****48**c4*%%%4%4%4 FN BIN SEARCH 
DEFine FuNction bin_s(n,x$,y$) 

LOCal a4 

power#INT(LN(n-1)/LN(2)) 

s=2” power 

FOR k=power-1 TO 0 STEP -1 
s=at+(2°k)}*(x$>y$(active,s,1,1 TO 


*:RETurn 


LEN(x$)))}-(2°7k)*(x$<y$(active,s,1,1 TO LEN(x$))) 


5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
§990 
6000 
6010 
6020 
6030 
6040 
6042 
6044 


IF s>n THEN s=n 
IF s<l THEN esl 
END FOR k 
RETurn 8s 
END DEFine bin_sa 
REMark *####R#4£ S844 KK EXKKKEKEE UPDOWN 
DEFine PROCedure updown(y$,s) 
REPeat upward 
s=s-t 
IF s=0 THEN EXIT upward 
ceyt(active,s,2) 
IF x$(c,s8fld,1 TO LEN(s$))<>s$ THEN EXIT upward 
END REPeat upward 
REPeat downward 
s=s8+1 
e=y$(active,s,2) 
IF x6(c,sfld,1 TO LEN(s$})<>s$ THEN EXIT downward 
b_a_ display 
IF s=nn THEN EXIT downward 
END REPeat downward 
END DEFine updown 
REMark ********ee4e44e%ee BOS DISPLAY 
DEFine PROCedure b_s a 
PRINTéchan, "# ";c&” 
FOR j=l to fields: 


IF x$(0,j,3)="D" THEN temp$=x$(c,j}:PRINT#chan, date_rev$(temp$) 


: NEXT Jj 


6046 
6048 
6049 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 


PRINT#chan, x$(c,j)&" "3 
END FOR j 
PRINT#chan 
IF lprint AND chan=1 THEN chan=3:b_s_display 
chan=1 
END DEFine b_s_display 
REMark ****4*4*#*#%##4%e4ee4% UPDATE INDEX 
DEFine PROCedure update_index 
IF NOT indices THEN RETurn 
DIM comp$(2,chars) 
FOR j=1 TO fields 
IF x$(0,j,1)="I" THEN 
activesx$(0,j,2) 
ndx¢(active,nn,1)#x$(nn, j):ndx$(active,nn,2)=nn:item=nn 
in_sort 
END IF 
END FOR Jj 
END DEFine update_index 
REMark #8 4400S ER ER PACK 
DEFine PROCedure pa 
SELect ON alias 
2l:pak a$,afields,achars,ann,adeleted,aindices,apac,aresave 
=2:pak b$,bfields,bchars,bnn,bdeleted,bindices,bpac,bresave 
=3:pak c$,cfields,cchars,cnn,cdeleted,cindices,cpac,cresave 
END SELect 
END DEFine pa | 
DEFine PROCedure 


pak(x$,fields,chars,nn,deleted, indices,pac,resave } 


6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 


pac=l:resave=1 
sgave 
lload 
CLS: PRINT\"Rebuilding the index files. 
FOR j=l TO fields 
IF x$(0,j,1)="I" THEN 
fldno=j 
PRINT\x$(0,j,4 TO LEN(x$(0,j)))&" 


Please wait.” 


index" 


pac=0:resave=0 
llead 
END DEFine pa 
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6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 


DEFine PROCedure use(x) 
IF x>3 THEN x=3 

alias=x 

END DEFine use 


x$=slice3$anlice2$aslicel$ 
RETurn x$ 
END DEFine date_rev$ 


its first character only. If option Sis entered, 
field 0 of each record is shortened by removing 
the lastcharacter, providedits lengthis already 
more than one. A field of only one character 
length cannot contain any Ss and is left un- 
changed. Appropriate messages are printed 
toscreen with each option. Note also that 1600 
in ENTERnowinserts only one blankcharacter 
in field 0 in a new record. 

If dates are to be selected on using > or < 
operators then the previous format of date 
strings is unsuitable, since years are more 
important than days, and the order of day, 
month and year needs to be reversed. This 
is done by a new function DATE_REV$ 
(line 6490 onwards), which slices the date 
string into three separate sections for day, 
month and year and then recombines them 
inreverse order. The function works equally 
well for restoring a reversed date to normal 
format for printing. It is recommended that 
all dates are stored in reverse form and 
1520 reverses a newly entered date in 
ENTER, so that keyboard entry remains as 
before, while 2635 does the same for 
AMEND. Line 5065 prints a reversed (ie 
normal) date in DISPLAY and line 6044 in 


REMark *®***S¢S444XESSAKKAHEREELKSEE USE 


REMark *#**eee44468444444%44¢ DATE REVERSE 
DEFine FuNction date_rev$ ({x$) 
slicel$=x$({1 TO 2):slice2$=x$(3 TO 4):slice3$=x$(5 TO 6) 


B_S DISPLAY. 

CReate now offers the option of entering 
data immediately into anewly created data- 
base. If this option is accepted, the empty 
file is loaded according to the current set- 
ting of alias and EN is called. QUIT has 
been altered to check all the databases in 
memory and call SSAVE for each in turn. 

The changes in SSAVE have made it 
impossible to address DBSAVE directly 
and PA(ck) now has to call SSAVE. It is 
therefore necessary to set and cancel the 
flag resave at the same time as pac. These 
statements have been added to PA. 

Facilities for printing output on paper have 
so far been limited and the system has 
been radically revised. PR now toggles the 
value of a global flag print which is initially 
set to 0 by START. DISPLAY has been 
changed so that when 1 printis set and chan 
= 1 line 5090 sets chan to 3 and then calls 
DISPLAY itself — a form of looping —and on 
the second time round, the output goes to 
channel 3, the printer. With chan set at 3, 
line 5090 is skipped on the second pass, 
(avoiding a perpetual loop!) and 5100 resets 
chan to 1. The same system has been 
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installed in B_S_ DISPLAY so that results 
of selections and binary searches can now 
be printed out. The effect is that with print 
set, any data printed to screen is echoed to 
the printer. A new line in MENU now prints 
amessage ‘Is the printer ready?’ in channel 
4 whenever 1 print is set. {f the printer is not 
ready the program will ‘hang’, waiting for 
the printer, and this condition could be 
mistaken for a ‘crash’. 

Two modifications have been made to 
ENter. The previous method of saving and 
reloading the file after entering 10 records 
no longer works with the new SELect struc- 
tures and instead the whole procedure has 
been enclosed in arepeat loop — entryloop 
~~ which has the same effect. Secondly the 
display of field names has been changed by 
the addition of the nested FOR — NEXT 
loops j andkin 1390 and 1400 so that all the 
field names are displayed at once, instead 
of one by one, before input begins with the 
first field. If the database has more than 19 
fields (the number of lines in window #1) the 
first 19 are displayed, followed by the re- 
mainder when the first 19 have been filled. 

A full listing of the amended program is 
included in this article except for the valida- 
tion functions INTAKE$, CHECKDATE$, 
UPPER$, LOWER$ and GETNUMBER$. 
These are exactly the same as in last 
month’s listing, except for new line num- 
bers, and should be added at the end of this 
listing. 

Next month | will deal with programming 
the database and tailoring it for specific 
applications. 
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